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APT 


BYTE/RECORD/F ILE COUNT 
SRF 


CMD 
COMMAND PACKET 
CMDPKT 


EXTENDED STATUS 
MESSAGE PACKET 


PC 
PSwW 
RESIDUAL FRAME COUNT 
RFC 


plete CLASS CODE 


TSBA 
TSDB 
TSSR 
XSTO 
xST1 
KST2 
xXST3 
XXDP 


AUTOMATED COMPUTER TEST 


AUTOMATED PRODUCT TEST SYSTEM USED IN 
MANUFACTURING. 


IS STORED IN THE 4TH WORD OF THE COMMAND 
PACKET AND IT*S USE BY THE TSO04 DEPENDS 

ON THE TYPE OF COMMAND. 

TSO4 COMMAND (SEE 2.3.14.1 FOR LIST OF COMMANDS). 
FOUR WORD PACKET IN THE CPU MEMORY WHICH 
CONTAINS ALL INFORMATION NEEDED BY THE 

TSO4 TO EXECUTE A COMMAND. 

FOUR WORDS OF TSO4 STATUS WHICH ARE 
TRANSFERRED AS PART OF THE MESSAGE PACKET AT 
THE COMPLETION OF A COMMAND. 

SEVEN WORD PACKET IN THE CPU MEMORY INTO 
WHICH THE TSO4 STORES STATUS AT THE 
COMPLETION OF A COMMAND. 

PROGRAM COUNTER 

PROCESSOR STATUS WORD 

THIS COUNT IS PART OF THE MESSAGE PACKET 
AND CONTAINS THE NUMBER OF BYTES/RECORDS 
/FILES REMAINING TO BE PROCESSED AT THE 
COMPLETION OF A COMMAND. 


THREE BIT CODE IN THE TSSR WHICH INDI- 
CATES THE TYPE OF COMMAND TERMINATION. 


TAPE SYSTEM BUS ADDRESS REGISTER. 
TAPE SYSTEM DATA BUFFER PEGISTER. 
TAPE SYSTEM STATUS REGISTER. 
EXTENDED STATUS REGISTER 0 
EXTENDED STATUS REGISTER 1 
EXTENDED STATUS REGISTER 2 
EXTENDED STATUS REGISTER 3 


XXDP IS A “'CATCH~ALL"* NAME FOR A GROUP OF PDP-11 
DIAGNOSTIC PACKAGES AVAILABLE ON MULTIMEDIA, 
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1.0 GENERAL INF ORMAT I ON 


1.17.1 FUNCTIONAL DESCRIPTION 


THIS PROGRAM CAN BE USED AS A BASIC FUNCTION TEST, A DATA RELIABILITY 
TEST, A COMPATABILITY TEST, OR TO EXECUTE A SEQUENCE OF OPERATOR 
SELECTED COMMANDS. 


1.1.2 STRUCTURE OF PROGRAM 


THIS DIAGNOSTIC OCCUPIES 14.5K WORDS OF MEMORY AND IS COMPATIBLE WITH 

BOTH XXDP AND ACT. IT CAN BE RUN STANDALONE UNDER XXDP, AND CAN BE CHAINED 
UNDER XXDP, ACT AND APT IN ACT MODE (SEE ‘CREATE CORE IMAGE'' COMMAND 

BELOW FOR DETAILS OF CHAINING PROCEDURE). S INGLE 


ONTROL 
MODULE WHICH WILL BE LATER RELEASED INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 


WHEN THIS DiAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES 

FIRST TO THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN ‘HARD CORE"' 
QUESTIONS ABOUT THE ENVIRONMENT. THEN IT WILL ENTER COMMAND 

MODE, INDICATED BY A PROMPT CHARACTER (DS B>). AT COMMAND MODE THE OPERATOR 
MAY ENTER ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW. 


THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING, 

BUT THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL DISTRIBUTION. 
A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE OF THE SUPERVISOR 
ASSEMBLY LISTING, AND IT MAY BE CONSULTED IN EVENT OF A SOFTWARE PROBLEM. 





- 
USER DOCUMENTATION MACY11 30A(1052) 29=DEC-78 15:33 PAGE 10 
CZTSHA.DOC 28-DEC=78 14:29 


1.1.3 MEMORY MAP 


DIAGNOSTIC 
SUPERVISOR 


FREE FOR 
READ/WRITE 
BUFFER 


ALLOCATION 
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1.1.4 DIAGNOSTIC INFORMATION 


THIS DIAGNOSTIC CAN TEST UP TO 4 UNITS SIMULTANEOUSLY. THE 4 UNITS 
ARE ASSIGNED LOGICAL UNIT NUMBERS 0 - 3 BY THE DIAGNOSTIC. 


THERE ARE 5 TESTS IN THIS PROGRAM: 


TEST 1 = BASIC FUNCTIONS. 

TEST 2 = DATA RELIABILITY. 

TEST 3 = WRITE COMPATABILITY/WRITE UTILITY. 
TEST 4 = READ COMPATABILITY/READ UTILITY. 
TEST 5 = OPERATOR SELECTED SEQUENCE. 


ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE MARK 
ERRORS er: RECOVERY IS INHIBITED BY THE OEPRATOR. 

AND WRITE T MARK RETRY LIMIT IS 16. 
REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTION AND 8 | 
OPPOSITE DIRECTION). FOR MORE INFORMATION ON ERROR RECOVERY 
PROCEDURES, SEE SECTION 3.0 (ERROR REPORTING). 


1.2 SYSTEM REQUIREMENTS 


PDP-11 PROCESSOR WITH 16K OR MORE OF MEMORY 
eee DEVICE re te LA36,VT50,ETC.) 
PROGRAM LOAD DEVI 


1.2.2 SOFTWARE REQUIREMENTS 


DIAGNOSTIC SUPERVISOR 
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1.3 RELATED DOCUMENTS AND STANDARDS 
XXDP USERS MANUAL MD-11-DZQXA 
DIAGNOSTIC SUPERVISOR PROGRAM LISTING 
PDP=11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION. 
PDP=11 DIAGNOSTIC SUPERVISUR PROGRAMMER'S GUIDE. 
TS11/TSO4 PROGRAMMING SPECIFICATION. 


TS11/TSO4 ENGINEERING SPECIFICATION. 
TS11/TSO4 COMMAND PACKET SPECIFICATION. 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


ORDER OF HOST CPU DIAGNOSTIC USAGE: 
1) CONTROL LOGIC PROGRAM ~ ALL TESTS. 
2) DATA RELIABILITY PROGRAM: 
B) DATA RELIABILITY TEST. 


1.5 ASSUMPTIONS 


THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 


PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC. 
DO NOT FUNCTION PROPERLY. 


1.6 DIAGNOSTIC HISTORY 
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2.0 OPERATING INSTRUCTIONS 


THIS PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSCLUTE LOADER. 
IT MAY ALSO BE LOADED FROM ANY XXDP LOAD MEDIA. 


2.1.2 STARTING PROCEDURES 


THE PROGRAM STARTS AT LOCATION 200. USE STANDARD DEC PROCEDURES 
TO START THE PROGRAM. 


2.1.3 STEPS FOR QUICK AND SIMPLE EXECUTION 


THE DIAGNOSTIC CAN BE EXECUTED STANDALONE WITHOUT READING THE REMAINDER OF THIS 
DOCUMENT, AS FOLLOWS: 


LOAD THE DIAGNOSTIC 

START AT ADDRESS 200 

ANSWER THE HARDCORE QUESTIONS 

RECEIVE PROMPT (DS B>) 

ENTER STA<CR> 

ANSWER HARDWARE AND SOFTWARE QUESTIONS 
GET END OF PASS MESSAGES OR ERROR MESSAGES 
TO END EXECUTION, ENTER CONTROL/C 


2.1.4 THE SIX STEPS OF EXECUTION 


THIS DIAGNOSTIC ae BE LOADED AND STARTED USING NORMAL XXDP 
PROCEDURES. THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE 
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT. 


WHEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCUR: 


Reta KKERE 


* STEP 1 * 


aaaktakaenane 


A SHORT SERIES OF ‘HARDCORE QUESTIONS’ WILL SE ASKED: 
QUE ST ION MEANING 


L=-CLK (L) N ? JS THERE AN Ae 
PoCLk (L) N ? LOCK 
5OHZ (L) N ? 1S THE POWER "50. CYCLES (AS IN EUROPE)? 


SEQ 0011 
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1S MACHINE AN LSI? 
IS THERE A LINE PRINTER? 
HOW MANY K OF MEMORY ARE THERE? 


THE DEFAULTS ( ‘ow AFTER EACH QUESTION) CAN BE SELECTED BY HITTING 
CARRIAGE RE IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL BE 
ASKED: FOR E LE, IF YOU SAY ‘'YES'' TO THE L=CLOCK QUESTION, THE 
P=CLOCK QUESTION WILL NOT BE ASKED. 


akekananee 


* STEP 2 * 


eRRRKERERE 


WHEN YOU HAVE ANSWERED ALL THE cae tel QUESTIONS, THE DIAGNOSTIC WILL 
ISSUE THE PROMPT ‘DS-8>' FROM THIS POINT UNTIL THE TIME WHEN YOU 
RESTART XXDP, YOU WILL BE TALKING TO THE DIAGNOSTIC, NOT XXDP. WE 
WILL REFER TO THE PRESENCE OF THIS PROMPT AS BEING IN DIAGNOSTIC 
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE. 


AT THIS POINT YOU +e ENTER A “‘START’’ COMMAND. THIS IS NOT THE SAME 
AS_ THE XXDP "'START’’ COMMAND, WHICH YOU ALREADY ISSUED . RE SPONSE pa 
THE XXDP DOT PROMPT. THIS ‘‘START’’ COMMAND CAN TAKE NUMBER 
SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF THESE ARE ser 
FORTH IN *'2.3 DETAILS OF COMMANDS AND SYNTAX''. HOWEVER, IN ORDER I0 
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE THIS: 


STA/PASS : 1/F LAGS : HOE 
THINGS TO NOTE HERE: 


1. ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND AT THE 
"DS-B>"* LEVEL NEED TO BE TYPED. 


THE "PASS" SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE. A 
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL 
UNITS BEING TESTED (THIS WILL. BE EXPLAINED SHORTLY). ONE 
PASS IS SPECIFIED IN THE ABOVE EXAMPLE. 


THE “FLAGS'’ SWITCH MAY SPECIFY ANY OF A NUMBER OF FLAGS, BUT 
THE MAIN USEFUL ONES ARE: 


LOOP ONE ERROR 
. HALT ON ERROR 
INHIBIT ERROR PRINTOUT 


FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL SEE WHY 


SEQ 0012 
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weeeananaene 


* STEP 3 * 


aeaenkeeannese 


WHEN YOU HAVE TYPED IN A ‘‘START’’ COMMAND THE DIAGNOSTIC WILL COME 
BACK WITH THE QUESTION ‘# UNITS?°" ‘0 WHICH YOU SHOULD RESPOND BY 
TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST. 


WORD GF WARNING HERE: THE NUMBER OF UNITS DEPENDS ON THE TARGET 
DEVICE OF THE DIAGNOSTIC. FOR EXAMPLE, IF THE DIAGNOSTIC IS DIRECTED 
THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF 
E TESTED. WHEREAS IF THE seer Hy WAS DIRECTED AT THE 
DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD ‘Te THE NUMBER OF 
CONTROLLERS. THE TARGET DEVICE OF « DiAGNOSTIC CAN ALWAYS BE 
DETERMINED BY INSPECTING THE ‘HEADER®’ STATEMENT NEAR THE BEGINNING OF 
THE SOURCE CODE. ONE OF THE OPERANDS OF THIS ‘HEADER’’ STATEMENT 
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC. 


akan tnaaen 


* STEP 4 * 


RARER KKAER 


WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE_ TESTED, THE 
DIAGNOSTIC WILL YOU THE HARDWARE QUESTIONS’, THE ANSWERS TO 
THESE QUESTIONS AR USED TO BUILD TABLES IN CORE, “*ALLED ‘HARDWARE 
eset”? ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE 


THERE ARE SEVERAL HARDWARF QUESTIONS AND , * ates SERIES WILL BE 
POSED N TIMES, WHERE N IS THE NUMBER OF UNIT 


SEE 2.3.13 FOR HARDWARE PARAMETERS 


THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC ENGINEERING. 
I THE FUTURE NOT BE WRITTEN TO AUTOSIZE OR ASSUME 

:__INSTEAD, THEY WILL ASK THE OPERATOR FOR ALL THE 
INFORMATION THEY NEED TO TEST THE DEVICE. 


KRERKKEKKKEK 


* STEP 5 * 


RRKKKKKKEKK 


AFTER YOU HAVE ris ps ALL_THE af ARDWARE eed af FOR ALL _THE UNITS, 
YOU WILL BE _ ASKED “‘CHANGE SW?*’ IF YOU WANT TO BE ~ ae 4 THE SOF TWARE 
QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS PROGRAM, TYPE ‘Y''. = IF 
YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS. TYPE 'N’*’. IF 
YOU TYPE ''Y’’ YOU WILL BE ASKED THE SOF TWARE mg i? AND THE ANSWERS 
WILL_ BE PUT INTO THE SOFTWARE P-TABLE IN THE PROGR4M. THE SERIES OF 
hae tert eu BE ASKED JUST ONCE, REGARDLESS OF THE NUMBER OF UNITS 


SEE 2.3.14 FOR SOFTWARE PARAMETERS 
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REAKERREKKK 


* STEP 6 * 


REREKKRAKKK 


AFTER YOU HAVE ANSWERED THE SOF TWARE y tenn THE DIAGNOSTIC WILL 
BEGIN TO EXECUTE THE HARDWARE TEST THERE ARE SEVERAL Mae 
THAT CAN HAPPEN NEXT, DEPENDING ON WHET THER © UARDWARE ERR IS 
ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES You" SELECTED ON THE START 
COMMAND. CONSIDER THE POSSIBILITIES: 


1. IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY 
eevts THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND 
MODE (PROMPT DS-8>). 


IF AN ERROR IS ENCOUNTERED, THEN ONE OF THREE THINGS HAPPENS, 
DEPENDING ON THE SETTINGS OF THE HOE AND LOE FLAGS. 


HOE SET: 4, 3 ERROR WILL BE REPORTED ON THE CONSOLE AND 
THE DIAGNOSTIC WILL RETURN TO COMMAND MODE. 
LOE SET: THE DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK 
OF CODE THAT rbd Oy THE ERROR. 
NEITHER ~" NOR LOE SET: THE ERROR WILL BE REPORTED ON 
THE CONSOLE AND NORMAL EXECUTION WILL RESUME 
AS IF NO ERROR HAD OCCURED. 


2.2 SPECIAL ENVIRONMENTS 


EERE EERE EERE EERE EERE ARKKER 


STA(RT)/TESTS:<TEST=LIST>/PASS : <PASS~CNT>/F LAGS : <FLAG=LIST>/EOP:<INCR> 


SUIEIIOIOISIIUISISIIUIOI IOI IIIS IOISIISIDIOIUIDIIOISISIOIOIOIIOIUISIOIOIOIUIIII IOI IOI IOI IOI I 
2.3.1.1 TESTS SWITCH (/TESTS:<TEST=LIST>) 


<TEST=LIST> IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES 

OF DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY TESTS TO BE 
EXECUTED. THE NUMBERS ARE S TED B - THE NUMBERS RANGE FROM 
1 TO THE LARGEST TEST NUMBER IN THEY MAY BE SPECIFIED 
IN ANY ORDER. TESTS WILL BE EXECUT RICAL ORDER REGARDLESS 

OF THE ORDER OF SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS. ON 
THIS AND ALL SWITCHES, THE ANGLE CRACKETS <> ARE PUNCTUATION USED IN THE 
DEFINITION ONLY, AND ARE NOT TO BE TYPED BY THE OPERATOR. SEE EXAMPLE 
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AT END OF 2.3.1. 
PASS SWITCH (/PASS:<PASS=CNT>) 


<PASS=CNT> IS A_DECIMAL NUMBER INDICATING | DESIRED NUMBER OF PASSES. 
A PASS _IS DEFINED AS a3 to tie OF THE FULL DIAGNOSTIC or SELECTED TESTS) 
GA S_SUBMITT THE DEFAULT IS NON-ENDING EXECUTION. IN 
IS oe bee EITHER BY 
URANCE OF AN ERROR WITH THE HALT ON ERROR 
THE EXIT IS A RETURN TO COMMAND MODE. SEE EXAMPLE 
AT END OF 2.3.1. 


FLAGS SWITCH (/FLAGS:<FLAG=LIST>) 
<FLAG=LIST> IS_A SEQUENCE OF ELEMENTS OF THE FORM TUF ts <FLAG=1>, 


OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> HAS 
THE FOLLOWING VALUES: 


HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED WHEN AN 
ERROR IS ENCOUNTERED 
LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 
WITHIN THE SMALLEST DEFINED BLOCK OF CODING (SEGMENT, 

“aie ie le ap THE ERROR 


RROR REPORTS 
INHIBIT EXTENDED ERROR REPORTS 
yey ALL MESSAGES TO A LINE PRINTER 
PRINT NUMBER OF TEST BEING EXECUTED 
BELL ON ERROR 
RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS 
INHIBIT STATISTICAL REPORTS 
INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 


THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE EQUATED TO 0 
ARE CLEARED. A FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS SWITCH 
IS NOT GIVEN ALL FLAGS ARE CLEARED. SEE EXAMPLE AT END OF 2.3.1. 


END OF PASS SWITCH (/EOP:<INCR>) 


<INCR> IS A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF PASSES) 
IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. THE DEFAULT IS 
AT THE END OF EVERY PASS. SEE EXAMPLE AT END OF 2.3.1. 


EFFECT OF COMMAND 


THE EFFECT OF THE START COMMAND IS TO INITIATE THE HARDWARE PARAMETER 
DIALOGUE, THE SOFTWARE PARAMETER DIALOGUE, AND THEN THE DIAGNOSTIC 
TESTS THEMSELVES. 


THE HARDWARE PARAMETER DIALOGUE COMMENCES WITH THE QUESTION 
# UNITS?” TO WHICH THE OPERATOR, REPLIES WITH A DECIMAL 

NUMBER N FROM 1 TO 64. THE TERM "UNIT’' REFERS TO THE DEVICE 

10 WHICH THIS SERIES OF DIAGNOSTICS. IS DEDICATED. FOLLOWING THIS. ARE 
THE QUESTIONS WHEREBY THE P=TABLES THEMSELVES WILL BE BUILT. EACH 
P-TABLE IS A CORE-RESIDENT TABLE CONTAINING 

ALL THE HARDWARE INFORMATION FOR ONE UNIT. THE OPERATOR MUST SUPPLY 
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(NUMBER OF UNITS) VALUES FOR EACH QUE 
do ies oF GIVING ONE WER 


HE MA 
” CIN WICH CASE THE 
BY Vv, 
TO EACH TION (SE wl INEeS 
EACH QUESTION Is FOLLOWED BY THE RESPONSE ADIX DECIMAL. B 


OR BINARY, O FOR OCTAL, L for YES/NO) IN PARE THESES AND THE DEFAULT 
VALUE AFTER Ou PARENTHESE 


FOLLOWING THE HARDWARE QUESTIONS ARE THE SOFTWARE QUESTIONS TO 
SUILD_THE SOFTWARE TABLES, WHICH DEFINE THE MODE (QUICK VERIFY ETC.) 
THAT THE DIAGNOSTIC WILL EXECUTE IN. 


WHEN THE QUESTION '# UNITS?°' IS ANSWERED, MEMORY STORAGE 
IS pg ath FOR THE P=TABLES, AND IF THERE IS NOT ENOUGH 
TO ACCOMMODATE THEM THE MESSAGE ‘TOO MANY UNITS’' IS ISSUED. IN THIS CASE 
THE DIAGNOSTIC MUST BE EXECUTED MORE THAN ONCE TO TEST ALL UNITS. 
EXAMPLE : 
STA/TESTS:1:2-4:6:8-10/PASS: 3/FLAGS: IER: HOE=1 : UAM:LOE 
S COMMAND WILL CAUSE pect PASSES TO BE MADE, EACH PASS CONSISTING 
22 324,6,8,9, “yy EXECUTED AGAINST ALL UNITS. THERE IS NO 
AND SAYING <FLAG=1>. THE 
ON - COMMAND OTHER THAN 


S PREVIOUSLY SET. NOTE THAT 
ON ALL COMMANDS ONLY THE FIRST THREE LETTERS ARE SCANNED. 


2.35.2 RESTART COMMAND 


RARER EERE ERE REE REE R ERE EERKEEKREEREREEEEKEEKEEEEEKEK 


RES (TART) /TESTS:<TEST=LIST>/PASS : <PASS~CNT>/F LAGS :<FLAG=LIST>/UNITS:<UNIT=LIST> 
REE E RR EERRERERKRERERRKREERREKEREKRERERERERRRRRKKERRRKEEKEKEEEERKEKKKKK 
2.3.2.1 TESTS, PASS, AND FLAGS SWITCHES 
<TEST=LIST>, <PASS=CNT>, AND <FLAG-LIST> ARE AS IN THE START COMMAND. 
2.3.2.2 UNITS SWITCH (/UNITS:<UNIT=LIST>) 
<UNIT=LIST> IS A SEQUENCE OF DECIMAL NUMBERS (1,2 ETC.) OR RANGES 
F DECIMAL NUMBERS (1-5, 8-10 ETC.) gr SPECIFY THE UNITS TO BE TESTED. 
BY COLONS. THE NUMBERS MAY popes} FROM 1 THRU 
THE NUMBER OF UNITS SPECIFIED IN THE PREVIGUS START COMMAND). 
THE NUMBER INDICATES THE POSITION OF THE P AS THE “OATA WAS ENTERED 
ING THE WARE DIAG ARE 
COMMAND. SEE THE 


AND DROP COMMANDS EF AULT 
IS TO TEST ALL UNITS WHICH HAVE NOT BEEN DROPPED BY A DROP COMMAND. 


EFFECT OF COMMAND 
THE RESTART COMMAND DIFFERS FROM THE START COMMAND IN THAT THE P=TABLES 


SEQ 0016 


j 
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FROM THE PREVIOUS START COMMAND (THERE MUST HAVE BEEN ONE) ARE USED, IN- 
ONES BEING BUILT. THE UNITS SWITCH GIVES THE ABILITY TO 
aay OPTIONALLY BE RE- 

_* Ay AF wa 


QUESTED MAD AN ER ROR W UAS ENCOUNTERED 
hg HALT ON ERROR FLAG SET (C) A CONTROL/C WAS ENTERED BY THE 


2.3.3 CONTINUE COMMAND 


RRR KK 


CON( TINUE) /PASS :<PASS=CNT/FLAGS : <FLAG=LIST> 


TASES IUISISI IOC IOIIIOIIOIIIOI OR 
2.3.3.1 PASS SWITCH (/PASS:<PASS-CNT>) 


<PASS~CNT>_IS SAME AS IN START COMMAND, BUT THE DEFAULT IS THE UN- 
SATISFIED PASS~CNT FROM THE PREVIOUS START OR RESTART. IF NONE RE- 
MAINS, THE DEFAULT IS NON-ENDING EXECUTION. 


FLAG SWITCH (/FLAGS:<FLAG=LIST>) 


<FLAG=LIST> IS SAME AS IN START COMMAND, BUT UNSPECIFIED FLAGS RE- 
TAIN THEIR CURRENT VALUE. 


EFFECT OF COMMAND 


CONTINUE MUST FOLLOW A START OR RESTART, AND COMMAND MODE MUST HAVE 
BEEN ENTERED DUE TO A HALT ON ERROR OR A CONTROL/C. THE EFFECT 

OF THE COMMAND IS TO GO TO THE BEGINNING OF THE TEST THAT WAS BEING 
EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE. SOFTWARE DIALOGUE MAY 
OPTIONALLY BE REEXECUTED. HARDWARE PARAMETERS MAY NOT BE CHANGED. 


2.3.4 PROCEED COMMAND 


MIT TITI ITIL TIT LITT 


PRO(CEED) /FLAGS:<FLAG=LIST> 


TOI IIOIISISIOIUI IOI I ik tint 
2.3.4.1 FLAGS SWITCH (/FLAGS:<FLAG=LIST>) 


<FLAG=LIST> IS AS IN THE START COMMAND, BUT UNSPECIFIED FLAGS RETAIN 
THEIR CURRENT VALUE. 


2.3.4.2 EFFECT OF COMMAND 


PROCEED MUST FOLLOW A START, RESTART, OR CONTINUE. COMMAND MODE 
MUST HAVE 7 ENTERED VIA A HALT ON ERROR. THE EFFECT o THE 
COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 

ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 


SEQ 0017 
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2.3.5 CREATE CORE IMAGE COMMAND 


REET RE HAEEKEEKEREREKRRKKEKKERKERREREEKREEKEEKKEEEKKK 


CCI/TESTS:<TEST=LIST>/PASS : <PASS=CNT>/FLAGS : <FLAG=LIST> 


APSR RRERSAESEAAALESASALSALALLALAAL ASE SELES SS SRS SSS SE SY 


2.3.5.1 TESTS, PASS, AND FLAGS SWITCHES 


<TEST=LIST>, <PASS-CNT>, <FLAG-LIST>, AND ARE AS 
IN THE START COMMAND, EXCEPT THAT THE UAM (UNATTENDED MODE) FLAG 
DEFAULTS TO THE SE POSITION. 


EFFECT OF COMMAND 


THE PURPOSE OF THIS COMMAND IS TO CREATE A BIC FILE SUITABLE FOR 
CHAIN MODE EXECUTION. THE XXDP PROCEDURE IS AS FOLLOWS: 


cee a, | XXDP UTILITY UPD1 OR UPD2 
Snag FILE.BIN 

STAR 1306 

<QUESTIONS AND ANSWERS 

RESTART UPD1 USING RESTART ADD 


RESS 
HICORE ADDRESS (IF "PASSED 14.5K’' MESSAGE CAME) 
DUMP XXN:FILE.BIC 


THE OPERATOR DIALOGUE (HARDWARE AND SOFTWARE) WILL 

BE EXECUTED AS IN THE START COMMAND, BUT AT THE END * THE QUESTIONS 
THE HALT STATE WILL BE TI THE OPERATOR SHOULD THEN 

DUMP THE PROGRAM TO THE XXDP LIBRARY USING A BIC EXTENSION 


O THE X 
TO INDICATE THAT THIS FILE IS CHAINABLE. HE SHOULD USE THE XXDP UTILITY 
UPD1 OR UPD2 TO DO THIS. IF THE P-TABLES EXTEND BEYOND 14.5K, A MESSAGE 
WILL BE ISSUED GIVING THE NEW UPPER CORE LIMIT, TO WHICH THE OPERATOR 
MUST ADJUST BEFORE DUMPING. HE MAY NOW DELETE THE 
NON~CHAINABLE BIN FILE IF DESIRED, SINCE THE BIC FILE HAS ALL THE 
CAPABILITIES OF IT. 


WHEN THIS BIC FILE IS SUBSEQUENTLY EXECUTED IN CHAIN MODE, 
THE OPERATOR DIALOGUES WILL BE BYPASSED. HOWEVER, IF IT IS EXECUTED 
STANDALONE, THE DIALOGUE WILL BE REISSUED. 


NOTE TRAT IF THE MESSAGE ‘'TOO MANY UNITS'' IS ISSUED, TWO OR MORE 
CORE IMAGES MUST BE CREATED (WITH DIFFERENT NAMES) TO TEST ALL UNITS. 


NOTE THAT ALTHOUGH THE CHAINABLE IMAGE CAN BE EXECUTED ’ A 
16K MACHINE, THE ORIGINAL CCI CREATION MUST BE DONE ON A 
LARGE MACHINE. THE EXACT SIZE BEING DEPENDENT ON WHICH UPDATE 


RRA KEKEKAEEKRKEKKEKEE 


ADD/UNITS:<UNIT=LIST> 


KEE EREEKKEEKEEKEE 





om 


USER DOCUMENTATION MACY11 30A(1052) 29=DEC-78 15:33 PAGE g, 2 
CZTSHA.DOC SB-DEC-78 14:29 SEQ 0019 


2.3.6.1 UNITS SWITCH (/UNITS:<UNIT=LIST> 
<UNIT=LIST> IS AS IN THE RESTART COMMAND. 
2.5.6.2 EFFECT OF COMMAND 
THE gM SPECIFIED ARE ADDED TO THE TEST gr get EACH UNIT 
MUST HAVE A P=TABLE IN MEMORY DUE TO AN EARLIER HARDWARE oe 
HIS COMMAND MUST BE FOLLOWED BY A RESTART OR CONTINUE. THE UNITS 
SWITCH MUST BE SPECIFIED. THE ADD COMMAND IS MEANINGFUL ONLY FOR UNITS 
THAT WERE PREVIOUSLY DROPPED. 
2.3.7 DROP COMMAND 


EAA REREREKEE 


DRO(P) /UNITS:<UNIT=LIST> 


ARRAS ASA SALAS SSAA SSS SSS | 


2.3.7.1 UNITS SWITCH (/UNITS:<UNIT=LIST>) 
<UNIT=LIST> IS AS IN THE RESTART COMMAND. 

2.3.7.2 EFFECT OF COMMAND 
THE UNITS SPECIFIED WILL _BE DROPPED FROM TESTING. THE UNITS WILL 
BE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR START COMMAND. 
THE UNITS SWITCH MUST BE ENTERED. THIS COMMAND MUST BE 
FOLLOWED BY A RESTART OR A CONTINUE COMMAND. 

2.3.8 PRINT COMMAND 


eke 


PRI (NT) 


KaEKKKKEK 


2.3.8.1 EFFECT OF COMMAND 


ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC an PRINTED. THE 
ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED 


2.3.9 DISPLAY COMMAND 


RRR KKKKEK 


DIS(PLAY) /UNITS:<UNIT=LIST> 


LAR 22 020022022222 22S SSSS SE SS Sf 


2.3.9.1 UNITS SWITCH (/UNITS:<UNIT=LIST>) 
<UNIT=LIST> IS AS IN THE RESTART COMMAND. 
2.3.9.2 EFFECT OF COMMAND 
THE HARDWARE P=TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN THE 
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FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT WERE DROPPED BY THE 
OPERATOR ‘DROP’' COMMAND ARE SO DESIGNATED. 


2.3.10 FLAGS COMMAND 


KeEeKKKK 


FLA(GS) 


EREKEET 


2.3.10.1 EFFECT OF COMMAND 
THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 
2.3.11 ZFLAGS COMMAND 


REKKEEKE 


ZFL (AGS) 


REEKKKEREK 


2.3.11.1 EFFECT OF COMMAND 
ALL FLAGS ARE CLEARED. 
2.35.12 CONTROL CHARACTERS 


A CONTROL C_(*C) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC 
CAUSES A RETURN TO COMMAND MODE. 


A CONTROL Z (*Z) ENTERED DURING ONE OF THE THREE OPERATOR DIALOGUES 
(HARD CORE QUESTIONS (SEE 5" $ 1) ,HARDWARE DIALOGUE (SEE 2.3.1.5), 

OR SOFTWARE DIALOGUE (SEE 2.3.1.5) CAUSES THE DEFAULTS TO BE 

TAKEN FOR THE REMAINDER OF raat DIALOGUE . 


A CONTROL O (*0) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC 
CAUSES ALL TELETYPE OUTPUT TO BE SURPRESSED FOR THE REMAINDER OF 
THE DIAGNOSTIC OR UNTIL ANOTHER “O IS TYPED, WHICH RESTORES 
NORMAL TELETYPE OUTPUT. 


2.3.13 HARDWARE PARAMETERS 


THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 


TSDB ADDRESS (172520) ? 
VECTOR (150) ? 
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2.3.14 SOFTWARE PARAMETERS 


THE FOLLOWING QUESTIONS ARE ASKED_IF REQUESTED ON A START, RESTART, 
OR CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. 


CLEAR COUNTERS (L) Y ? 

RESET RANDOM VARIABLES (L) N ? 
HALT AFTER EACH CMD (L) N ? 
DISABLE INTERRUPTS (L) N ? 
INHIBIT RECOVERY (L) N ? 
CHANGE CMD SEQUENCE (L) N ? 


NOTE: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN 
OPERATOR SELECTED SEQUENCE IS TO BE EXECUTED. 
QUESTION WAS WE 


D_(N), NO MORE 
QUESTIONS WILL BE ASKED. IF THIS QUESTION WAS 
ANSWERED Y, THE FOLLOWING QUESTIONS MUST BE 
ANSWERED OR DEFAULTED WITH A <CR> ONLY: 


INHIBIT RFC ERROR REPORTS (L) N 


CHARACTERISTICS CODE (0) 40 .? (0,20 40, 200) (OCTAL) 
CMD/2 (D) 5 ? (1=27)° (DECIMAL) 
BRF COUNT (D) 4096 ? (124k) (DECIMAL) 
# OF OPERATIONS (D) 10 ? (1-65K) (DECIMAL) 
PATTERN (D) (0-8) EC IMAL) 
CMD/3 (D) 5 ? (1-27) (DECIMAL) 
BRF COUNT ? (1-4k) (DECIMAL) 
# OF OPERATIONS (D) 10 ? (1-65K) (DECIMAL) 
PATTERN ( (0-8) (DECIMAL) 
CMD/4 (D) 5 ? (1-27) (DECIMAL) 
BRF COUNT (D) 4096 ? (1-4k) (DECIMAL) 
# OF OPERATIONS (D) 10 ? (165K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 
CMD/5 (D) 5 ? (1-27) (DECIMAL) 
BRF COUNT (D) 4096 ? (1-4K) (DECIMAL) 
# OF OPERATIONS (D) 10 ? (1-65K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 
NOTE: THE PROGRAM AUTOMATICALLY INSERTS AN CHARACTERISTIC 40 
AS THE FIRST COMMAND IN THE SEQUENCE IF A 


TABLE. 
DIFFERENT CHARACTERISTIC IS DESIRED, OPERATOR SHOULD 
ENTER THAT CHARACTERISTIC CODE. A TOTAL OF 4 COMMANDS 

MAY BE ENTERED IN ADDITION TO THE SET CHARACTERISTICS 
COMMAND. IF THE OPERATOR WISHES TO USE LESS pen 2 
COMMANDS, AN END COMMAND MUST BE ENTERED AND THEN 

CONTROL 2 (*Z) CAN BE ENTERED TO TERMINATE P~TABLE DIALOGUE. 


nae 
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2.5.14.1 COMMAND LIST FOR USE IN P=TABLE DIALOGUE. 
CODE DESCRIPTION 

DRIVE INITIATE. 

READ FORWARD. 

READ REVERSE. 


WRITE. 
WRITE/VERIFY. IE. WRITE N RECORDS; READ REVERSE AND CHECK 
N RECORDS OF DATA; READ FORWARD AND CHECK N RECORDS. 
SPACE RECORDS FORWARD. 
SPACE RECORDS REVERSE. 
READ NEXT REVERSE, IE. SPACE FWD, READ REV. 
READ NEXT FORWARD, IE. 
READ PREVIOUS FWD, IE. CE FWD. 
READ ge REV, IE. READ REV, SPACE FWD. 
WRITE RETR 
REWIND 
MESSAGE BUFFER RELEASE. 
WRITE TAPE 
WRITE me ARK RETRY. 


ERASE 3 INCHES OF TAPE. 
UNLOAD. 


WN OVOODNAUSWNM-OOONAD WSWh- 


NONININY @ A PS RP SS SS es 


CLEAN TAPE 
SET DEVICE CHARACTERISTIC. WHERE BRF=200, 40, 20, 
200 = ENABLE SKIP 


0. 
TAPE MARKS STOP (STOP AT LOGICAL EOT) 
40 = ENABLE ATTENTION INTERRUPTS. 
20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
SEE _1S11/TSO4 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
24 IAGNO PROGRAMMING SPECIFICATION 
RIPTION. ODT MUST BE _USED TO LOAD DIAGNOSTIC DATA 
INTO THE ous By Adon BEFORE THIS CMD IS ISSUED. 
25 JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE 
IS DEFINED IN THE BRF FIELD. 


TABLE, WHER EN 

26 DELAY"'N'" MILISECONDS WHERE N IS DEFINED IN 
THE # OF OPERATIONS. 

27 END OF COMMAND SEQUENCE. 


2.3.14.2 DATA PATTERN LIST FOR USE IN P=TABLE DIALOGUE. 
PATTERN # DESCRIPTION. 
0 eg e Atrcae 10 = 377. 


LD OF ‘D'"'S, 
LD OF “I'S. 
NAT ING LTERNATE BYTES COMPLIMENTED. (125/252) 
ALTERNATING BYTES OF 00 
RANDOM DATA PATTERN. 
NC PATTERN GENERA? !ON. 
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2.3.15 EXTENDED DISCUSSION OF P=TABLE DIALOGUE 


THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE FOLLOWING 
DISCUSSION OF WHAT HAPPENS INTERNALLY. 


~ SOON AS THE QUESTION '# UNITS?"' IS ey a7 (WITH THE NUMBER 

SAY) aa th IN CORE IS ear a N P-TABLES. ALL OF THE P=TABLES 
ARE OF THE SAME FORMAT, AND THERE IS A ONE-TO ONE CORRESPONDENCE BETWEEN 
THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE FORMAT. 


ON THE FIRST TRIP_THRU THE QUESTIONS, ALL OF THE SLOTS IN ALL OF T 
P=TABLES ARE FILLED. IF THE OPERATOR TYPE 


S IS Ex THE LAST VALUE 
IN THE STRING BECOMES THE NEW DEFAULT AND IS USED TO FILL 
THAT SLOT IN THE REMAINING P-TABLES. 


SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME PROCESS IS CARRIED OUT, 
EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT VALUE 
- ae Fiakt thins NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE PLAYED 


THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE QUESTION HAS RECEIVED 
N EXPLICIT VALUES FROM THE OPERATOR. 


IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY BE USED 
TO INDICATE A REPETITION OF THE LAST NAMED VALUE. 


A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE 
THIS ce RANGE TRANSLATES TO THE 
IF VALUES ARE ADDRESSES, THE 
RANGE TRANSLATES TO THE STRING 6.8, 10% (AN INCREMENT OF 2). 


NOW LET US SEE HOW WE COULD USE THESE ‘wg yt TO CONSTRUCT A SET OF 
P=TABLES. ASSUME THAT WE HAVE 64 ap tS AND _T THERE ARE 

PARAMETERS FOR EACH (THREE *SLOTS IN THE POTABLE, 

IN THE DIALOGUE). LET THE DESIRED VALUE FOR THE Fi ARAME TER 

BE THE NUMBER 75 FOR ALL 64 TABLES. LET THE DESIRED VALUE a THE SECOND 
PARAMETER BE EQUAL TO THE UNIT NUMBER (1,2,5,...,64) EXCEPT FOR UNIT 

50, WHICH SHOULD RECEIVE THE VALUE 49. LET THE DESIRED VALUE FOR THE THIRD 
PARAMETER BE THE NUMBER 76 FOR THE FIRST 20 UNITS AND THE NUMBER 77 FOR THE 


THE FOLLOWING DIALOGUE WCULD ACCOMPLISH THIS GOAL: 
# UNITS (D) ? 64 

UNIT 1 

<QUESTION 1> ? 75 


<QUESTION 2> ? 
<QUESTION 3> ? 


UNIT 21 
<QUESTION 1> 7 
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<QUESTION 2> ? 21-49, ,51-64 
<QUESTION 3> ? 77 


THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A 75 IN ets 

64 TABLES. SLOT TWO RECEIVES THE VALUES 1,2,3,...,20 IN TABLES 1 THRU 20 
AND A CONSTANT 20 IN TABLES 21 THRU 64. SLOT THREE RECEIVES A CONSTANT 76 
IN ALL 64 TABLES. 


THE SECOND TIME THRU THE SERIES, TABLES 21 THRU THE END ARE GOING TO 
BE AFFECTED (NOTE THAT THIS PIECE, OF INFORMATION IS PRINTED OUT FOR THE 
THE OPERATOR IN THE FORM ‘UNIT XX°" AT THE BEGINNING Vd EACH SERIES). 
D TO BY A <CR>, SO SLOT ONE STAYS 
1 64, SINCE NO NEW EXLICIT VALUES ARE TYPED 
2,25..2+,49 IN TABLES 21 THRU 49, AND 
LOT AND GETS THE VALUES 51,52,53,...,64 IN 

THRU 64. SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64. 


THE DIALOGUE IS TERMINATED WHEN THE SOF TWARE ae nattion 64 


EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTI 
(NAMELY QUESTION 2). 


2.3.16 EXAMPLES OF SOFTWARE P-TABLE DIALOGUE 


2.3.16.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 


RECEIVE PROMPT (DS B>) 
ENTER STA/TES:1-2<CR> 


ANSWER HARDWARE QUESTIONS. 

PROCEED WITH THE FOLLOWING DIALOGUE: 
CHANGE SW (L) ? Y<CR> 
CLEAR COUNTERS (L) N Y<CR> 
RESET RANDOM VARIABLES, *, _N ? N<CR> 
HALT AFTER EACH CMD (L) N<CR> 
DISABLE INTERRUPTS (L) N N<CR> 


INHIBIT RECOVERY (L) N Ps N<CR> 
CHANGE CMD SEQUENCE (L) N ? N<CR> 
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2.3.16.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 


RECEIVE PROMPT (DS B>) 

ENTER STA/TES:1/FLA:LOE: IER: ISR: IDU<CR> 
ANSWER HARDWARE QUESTIONS. 

PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? Y<CR> 
CLEAR Seek gd (L) N Y<CR> 
RESET ARTABLES y 3M ? N<CR> 
HALT AFTER EACH CMD ( N<CR> 
DISABLE INTERRUPTS re} y . N<CR> 
INHIBIT RECOVERY (L) N ? N<CR> 
CHANGE CMD SEQUENCE (L) N ? N<CR> 


TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 


RECEIVE PROMPT (DS B>) 

ENTER STA/TES: ety ek _ IDU/EOP : 1000<CR> 
ANSWER HARDWARE QUESTI 

PROCEED WITH THE FOLLOWING DIALOGUE : 


CHANGE SW (L) ? Y¥<CR> 
CLEAR Seeks (L) N ? Y<CR> 
SE ARIABLES SN ? N<CR> 
HALT AFTER EACH CMD (L) N<CR> 
DISABLE INTERRUPTS (L) my J Y<CR> 
INHIBIT RECOVERY (L) N ? Y<CR> 
CHANGE CMD SEQUENCE (L) N ? Y<CR> 
INHIBIT RFC ERROR REPORTS (L) N ? Y<CR> 
CHARACTERISTICS CODE (0) 40 ? 40<CR> 
CMD/2 (D) 5 ? 13<CR> (REWIND) (COULD BE ANY COMMAND) 
y’ COUNT (D) 4096 ? 1<CR> 
# OF ae: oa (D) 10 ? 1<CR> 
PATTERN (D) 7 ? 1<CR> 
(MD/3 (D) 5 ? 4<CR> (WRITE) (COULD BE ANY COMMAND) 
BRF (D) 4096 ? 1000<CR> 
# OF OPERAT IONS (D) 10 ? 10000<CR> 


BRF (D) 4096 ? (END) (COULD BE ANY COMMAND) 
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2.4 EXECUTION TIMES 


SEQ 0026 


PDP11/34 
MOS MEMORY 
LA36 


LA 
TS11/TS04 


2.4.2 TEST EXECUTION TIMES 


BASIC FUNCTIONS = 30 SECONDS PER PASS. 

DATA RELIABILITY = 45 MINUTES PER PASS. 

WRITE COMPATABILITY = 16 MINUTES PER PASS. 

READ COMPATABILITY - 22 MINUTES PER PASS. 

OPERATOR SELECTED SEQUENCE - DEPENDS ON SEQUENCE SELECTED. 


ALL EXECUTION TIMES ARE SHOWN FOR ONE UNIT OEPRATION. 
APPROXIMATELY 10% WILL BE ADDED TO ALL EXECUTION TIMES 
FOR EACH ADDITIONAL UNIT. 
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3.0 ERROR INF ORMAT ION 


ALL_ERROR REPORTS EXCEP7 FOR ERRORS #1 AND #17 INCLUDE A DUMP 
OF THE FOLLOWING INFORMATION: 


ERROR #, TEST #, SUBTEST #, PROGRAM ae ty UNIT #, 
COMMAND, PREVIOUS COMMAND. PASS COUNT. # 

RECORDS FROM BOT, THE COMMAND PACKET, SSR, 

TCC, TSBA, RFC, AND THE EXTENDED STATUS REGISTERS 
(SEE 2.3.14.1 FOR LIST OF COMMANDS). 


STANDARD ERROR REPORT FORMAT: 


CZTSH SFT ERR XXXXX_ TST XXX SUB XXX PC: XXXXXX 
(ASCII ERROR MESSAGE 
XXX CMD FAILED - UNIT X PASS: XXXXX RECORD: XXXXX 
PREVIOUS CMD WAS 

PKT TSSR TCC 


TSBA RFC 
MXXXXKX MXXXXM MAXXXXMK XK 


_ XST1 XST2 XST3 
MXXXXKK MXXXMM AXMMAKK  NAAXKKK 


OF AN ERROR REPORT: 

CZTSH SFT ERR 00009 TST 002 SUB 000 PC: 010606 
ae to ekt ERROR 

WRT CMD FAILED - UNIT 2 PASS: 2 RECORD: 254 
PREVIOUS CMD vate Bs 

CMDPKT TCC 


TSBA 
002324 600000 108210 & 


XST XST1 XST2 $13 

000350 000002 100004 360000 
ERROR #1 - COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY: 
IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 
THIS IS A erates FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 
CORRECT IT 
ERROR #2 - TSO04 NOT READY: 


BEFORE ANY COMMAND IS ISSUED TO Trif TSO4, THE SUBSYSTEM READY 
BIT IN THE TSS4 IS CHECKED. IF THE SSR IS NOT SET, THE PROGRAM 
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REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
rien ie use BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 


ERROR #3 - NO RESPONSE ERROR: 


ne THE TSDB IS LOADED, THE TSO4 HAS ONE MILLISECOND TO RESPOND 
OR THE PROGRAM REPORTS A NO RESPONSE ERROR. THIS IS A FATAL 
DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE 
UNLESS THE IDU OPTION IS USED. 


ERROR #4 = NO INTERRUPT ERROR: 

COMMAND WAS ISSUED AND NO INTERRUPT RECEIVED. THE PROGRAM REPORTS 
THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR AND 

THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
OPTION IS USED. 

SPECIAL CONDITION ERRORS: 

IF, DURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR 
SPECIAL CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 
foge OR HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS 
THE TERMINATION CLASS CODES as THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET 

ERROR #5 = TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDiTION 
THE ERROR IS REPORTED, A HARD ERROR IS LOGGED 

AND THE PROGRAM PROCEEDS NORMALLY. 

ERROR #6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 

THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 
ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
THE IDU OPTION IS USED. 

ERROR #7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT 

A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE ‘panthers 
TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, E 


A HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NORMALLY. 


3.1.5.4 ERROR #8 - TERMINATION CLASS CODE 3, FUNCTION REJECT 
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THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF NE ORTAL ARE 
RMR, OF WLE, ILA, AND NBA. THIS ISA 

DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE Test cue 
UNLESS THE IDU OPTION IS USED. 


31.5.5 ERROR #9 = TERMINATION CLASS CODE 4, RECOVERABLE ERROR 


TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
THE FUNCTION WAS INITIATED. ead ald PROCEDURE IS TO LOG THE 
ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. IF RETRY LIMIT 
IS REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 


ERROR #10 - TERMINATION CLASS CODE 5, RECOVERABLE ERROR 


TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND RE- “ae THE ORIGINAL COMMAND. IF RETRY LIMIT IS 
REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 

IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 


ERROR #11 = TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 
TAPE POSITION HAS BEEN LOST. THE ONLY wae RECOVERY PROCEDURE IS TO 


REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE 
IF DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWIND 9 


NUMBE . 
RETRY THE COMMAND, OTHERWISE THIS IS A FATAL DEVICE ERROR AND THE 
DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #12 = TERMINATION CLASS CODE 7, FATAL SUBSYSTEM ERROR 


THE SUBSYSTEM IS INCAPABLE OF in" PERFORMING COMMANDS OR AT 
LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO THE 
FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR ADDITIONAL _INFOR- 
MATION THE TYPE OF FATAL ERROR. THE DEVICE WILL BE DROPPED 
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #13 - RFC NON-ZERO ERROR: 

IF, AFTER EXECUTION, v's RESIDUAL FRAME COUNT IS NON-ZERO, “ 
ERROR IS REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 
PROCEEDS NORMALLY. THE REPORTING AND LOGGING OF THESE ERRORS 
IS OPTIONAL. 

ERROR #14 = RETRY LIMIT EXCEEDED: 


ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND 
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THE PROGRAM PROCEEDS NORMALLY. 


ERROR #15 = TOO MANY INTERRUPTS: 


IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS ERROR IS REPORTED. 
THIS IS_A FATAL DEVICE ERROR AND THE DEVICE Witt BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED 


ERROR #16 = CAPSTAN RUNAWAY: 


CAPSTAN ote hs STOP WITHIN ACCEPTABLE WINDOW AFTER LAST 

COMMAND . PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING 
THE ERROR 50 THAT _THE DEAD TRACK eile IN EXTENDED STATUS REGISTER 2 
WILL CONTAIN THE TACH COUNT WHEN THE TAPE STOPPED. 

THIS IS _A FATAL DEVICE ERROR AND THE DEVICE _ BE DROPPED FROM 

THE TEST CYCLE UNLESS THE IDU OPTION IS USED 


ERROR #17 = DATA COMPARE ERROR: 


4 A DATA ere a ERROR OCCURS DURING A WRITE/VERIFY pe 

THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 
DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR 10 eign 
ON. A HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY 


3.2 ERROR HALTS 


ERROR HALTS ARE SUPPORTED PER Fo geng A -" THE PREVIOUS SECTION 
WITH /FLAG:HOE. THERE ARE NO OTHER HA 





on 


USER DOCUMENTATION rep th 30A(1052) 
CZTSHA.DOC 28-DEC=78 14:29 


4.0 PERFORMANCE REPORT 


= 
29-DEC=78 15:33 PAGE 33 


PASS: XXXXX RECORD : XXXXX 


UNIT 
BYTES MURITTEN 
BYTES READ REV 
BYTES READ FWD 


XK , KKK AK, KKK 
XK, XXK , AKK , KKH 
XXX 5 XXX | XX 5 AXX 

WRT RDR RDF 


RECOVERABLE ERRORS = XXXXX  XXXXK = XXXXX 
JNRECOVERABLE ERRORS = XXXXX  XXXXMK = XXXXX 


SPECIAL CONDITION HARD/FATAL DATA COMPARE 
KKK XXXXX XXXXX 


5.0 TEST SUMMARIES 


BASIC FUNCTIONS. 


EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TSO4 FUNCTIONS. 


SUBTEST 1 = SET CHAR, DRIVE INIT, GET STATUS. 
SET CHARACTERISTIC 200. 
DRIVE INITIATE. 
SET ws. 20. 
GET STATUS 
SET CHARACTERISTIC 40. 
PRINT TSO4 MICROCODE LEVEL (PASS 1 ONLY) 


SUBTEST 2 REWIND. 
+ REWIND. 
+ REWIND AT BOT. 


SUBTEST 3 WRITE/VERIFY. 
+ WRITE/VER 


+ 
+ 
+ 
+ 
+ 
+ 


PATTERN 1. 


PATTERN 0. 
SUBTEST 4 = WRITE TAPE MARK, ERASE. 
WRITE TAPE MARK. 


+ WRITE 10 RECORDS 

+ ERASE 10 TIMES 

+ WRITE TAPE MARK, 

+ WRITE TAPE MARK RETRY. 
SUBTEST 5 SPACE pitt’ 3 ¢ 


ACE 2 FIL 


ES REVERSE. 
+ SPACE 2 FILES FORWARD. 


SEQ 0031 
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+ SPACE 2 FILES Hy Agee 
+ SPACE 2 FILES FORWARD. 


SUBTEST 6 = SPACE ag 


+ REWIND 

+ SPACE 7 RECORDS FORWARD. 
+ SPACE 7 RECORDS dager F 
+ SPACE 7 RECORDS FORWARD. 
+ SPACE 7 RECORDS REVERSE: 


SUBTEST 7 MITE RETRY. 
+ REWIND. 


Ew! 
WRITE DATA. 
WRITE RETRY. 


SUBTEST 8 REV RETRY. 
READ REVERSE. 
READ NEXT REVERSE. 
READ NEXT FORWARD. 


SUBTEST 9 FWD RETRY. 
READ FORWARD. 
READ PREVIOUS FORWARD. 
READ PREVIOUS REVERSE. 
SUBTEST 10 
+ REWIND. 


SUBTEST 11 = WRITESVERTFY SWAPPED DATA BYTES. 
WRITE/VERIFY EVEN LENGTH (RECORD 1). 
WRITE/VERIFY ODD LENGTH (RECORD 2). 
+ SET DATA BYTE SWAP 
WRITE/VERIFY EVEN LENGTH (RECORD 3). 
+ WRITE/VERIFY ODD LENGTH (RECORD 4). 
+ CLEAR DATA BYTE SWAP. 


SUBTEST 12 = READ SWAPPED DATA BYTES. 
READ REV RECORD 4. 


CLEAR DATA BYTE SWAP. 
READ FWD RECORD 3. 
READ FWD RECORD 4. 


e@ee@ 49°93 96 3 ¢ 
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DATA RELIABILITY. 


1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 
AY CHARACTERISTIC 40 


WIND 
WRITE/VERIFY 63 RECORDS OF RANDOM LENGTH AND DATA 
AND READ COMMAND AND ARE 


R ITH RANDOM 
LENGTHS AND RANDOM PATTERN UNTIL END OF TAPE IS REACHED. 
- AT_THE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
A PERFORMANCE REPORT IS PRINTED. 


NOTE: IF A RESTART COMMAND IS USED TO INITIATE 


TEST 1, THE INTIAL REWIND COMMAND IS NOT ISSUED. 


WRITE COMPATABILITY/WRITE UTILITY. 
WRITES RECORDS OF RANDOM LENGTHS AND DATA FROM BOT TO EOT. 


READ COMPATABILITY/READ UTILITY. 
READS ENTIRE TAPE, FORWARD AND REVERSE. 


EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


THE SEQUENCE OF COMMANDS ENTERED BY THE OPERATOR 
IS EXECUTED. IF NO COMMANDS WERE ENTERED, A 
DEFAULT SEQUENCE OF WRITE/VERIFY RANDOM DATA IS EXECUTED. 


SEQ 0033 
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6.0 DEVICE INFORMATION TABLES 


THE TSO4 TAPE SUBSYSTEM CONSISTS OF A TS11 UNIBUS TO SERIAL BUS 
CONTROLLER CONNECTED TO A TSO4 DRIVE. FROM A SOFTWARE VIEWPOINT 
oa. IS UNIQUE (FOR A UNIBUS DEVICE) IN A NUMBER 


A. ONLY ONE REGISTER MAY BE WRITTEN - TSDB (TAPE SYSTEM 
DATA BUFFER), 


B. TWO REGISTERS MAY BE READ = TSSR AND TSBA (TAPE SYSTEM STATUS 
REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER), 


- COMMANDS ARE NOT WRITTEN TO THE DRIVE; RATHER, COMMAND 
POINTERS ARE WRITTEN +e: POINT TO COMMAND PACKETS SOME- 
WHERE IN CPU MEMORY. THE COMMAND POINTER IS USED BY 
THE TSO4 SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 
PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 


\ 
1. COMMAND WORD 
2. LOW ORDER BUFFER ADDRESS 
3. HIGH ORDER BUFFER ADDRESS 
4. BYTE COUNT 


- THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC- 
ESSARY . DETERMINE WHETHER: 
1. THE DRIVE IS READY TO und Eee ANOTHER COMMAND , 
S COMMAND WAS EXECUTED WITHOUT ERROR. 


N T MAY BE SARY 
TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT 
ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION. 


- EXTENDED STATUS 5S pe ARE NOT aha DIRECTLY FROM 
DRIVE REGISTERS; RATHER, A ‘'GET STATUS'’ COMMAND 
IS ISSUED WHICH WILL CAUSE THE 1304 TO TRANSFER EXTENDED 
STATUS INFORMATION TO THE MEMORY AREA eee TO BY THE 
BUFFER ADDRESS OF THE ‘'GET STATUS'* COMMAND. THERE ARE FOUR 
EXTENDED STATUS REGISTERS. SEE 6.3. 


. THE TSDB MUST * WRITTEN WITH A DATO yt et ry TO 
PROPERLY WRITE THE COMMAND POINTER. A_DATOB W 
CAUSE A a FUNCTION. A DATO TO THE WSSR WILL CAUSE 
SUBSYSTEM INIT 


- COMMAND PACKETS ae RESIDE ON DIVIDE BY FOUR 
MEMORY BOUNDARIES (AS OPPOSED TO DIVIDE BY 2 OR wORD 
BOUNDARIES) . 
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6.2 


UNIBUS INTERFACE SPECIFICATIONS 


772520 
772522 


772524 
772526 


772530 
772532 


772534 
772536 


REGISTER 


TSBA/TSDB 
TSSR 


TSBA/TSDB 
TSSR 
TSBA/TSDB 
TSSR 


TSBA/TSDB 
TSSR 


SEQ 0035 
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TS11/TSO4 REGISTER SUMMARY 


14 13 12 


¢eee sown 4—en4 


‘See ate tae 


R 0 0? 
1A11!A10 1409! 


+ Gusutmnbonnt 


IP14!P13!PI2' 


babwhehemel 


! !UPE!SPE!RMR! 
' ' ' ! 


ee ee eee 


ee ee ee 


: ‘ieee atl eee 


: ‘ace tes 


: heeft whe eat 


FATAL 


0 
1 
2 


pueden 


a is 


'P11!P10!P09! 
a er er ae 
INXMINBA!AT?! | 


+ 
'WLE INEF !ILC! 
$o--4+---+---+ 
; T1G. DBF « SCK. 

'NZO!! 
tometennton=4 


“WCF 


inanteennd 


MICRO DIAGNOSTIC ERROR CODE 
Quen} (nuetuanpeund 
TERMINATION CLASS CODES (TSSR TCO-TC2): 


NORMAL TERMINATION 
ATTENTION CONDITION 


kK 3 
15:33 PAGE 38 


,08 Pa 06 
1A08!A07 !A06! 


a ee See 


‘dew tod eee 


1A16!SSRIOFL! 


humana 


"ILA! "MOT TONL ! 
oy Cy Ca 
: bait ms 
IDTP{DT7{DT6! 
fawepenageend 

«LMX: OPI: 


a ae es 


2? % ,o 
1A05!A04 !A03! 
Py ny et 
;P05:P04:P03: : 
+ Geandaccjaned 4 
pce rces ree 


TE 'VCK!PED! 
Guawtenedean4 
' IPO! TED! POS! 
LTTMiLCOINZNi 


'REV! CRF 'DCK! 


juinhboamimene 


RECOVERABLE ERROR - TAPE POSITION = ONE RECORD 


DOWN TAPE FROM START OF FUNCTION 
TAPE NOT 


RECOVERABLE ERR 


UNRE COVE RABL 

FATAL CONTROLLER ERROR 
CLASS CODES (TSSR FCO-FC1): 
MICRO DIAGNOSTIC FAILURE fy ar IN TS04 OPERATOR PANEL AND XST3). 


1/0 SEQUENCER 


CROM PARIT 


MOVED 


E ERROR ~- TAPE POSITION LOST 


Y ERR 
MICROPROCESSOR CROM PARITY ERROR. 
SILO PARITY ERROR. 
SERIAL BUS PARITY ERROR DETECTED AT TS11 (re). 
SERIAL BUS PARITY soem D JECTED AT TS04 (BP 
FATAL ERROR HALTS 1750-1777 
LOSS OF AC POWER HAS BEE. DETECTED. 


02 01 00 


‘wad ae! eae 


+ 
1P02!P17 P16! 
ganepenaponns 
'TCT!TCO! =! 
' ' ' ' 
a oo rs 


ed 
“WLK BOT: EOT- 
pueopocetowes 
'POL!UNC!MTE! 
sLRC. CRE: PE: 


'pT2!DT1!DTO! 


Gunwpasefonnd 
| har ‘RIB: 


Sicekeintdiematiatueaitinda 


BPE ) 
IN TSO4 PROGRAM COUNTER DISPLAY. 
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TS11 STATUS REGISTER (TSSR) 


UNIBUS ADDRESS + 2 = READ ONLY 


15 


, ee a ee ee en + 


. SC 1UPE!SPE/ROR! | 


+———+ jeviiinents 


BIT 


15 


14 


13 


12 


NAME 


SC 


UPE 


SPE 


RMR 


NXM 


5. 


TCC 


Ss 


4/5 


4/5 


11 10 09 08 07 06 05. 06 03 02. le 00 
+ 
‘NXM NBA: A17: ‘A16:SSR:OFL : 1FC1!FCO!TC2! TCT! TCO! 


junehanetuaed Dentinteebuaies po a Quenjuanbuwetd 


DEFINITION 


8 hey CONDITION. WHEN SET, INDICATES THAT 
THE LAST COMMAND DID NOT COMPLETE WITHOUT 
INCIDENT. oe SE EITHER AN ERROR WA 
TED XCEPTION CONDITION OCCURRED. 

APE MARKS ON READ 


TING, E ALSO BE Y 
BITS CONTAINED IN THE TSSR REGISTER: UPE, SPE, 
RMR, AND NXM. THE TERMINATION CLASS BITS ARE SOMETHING 
OTHER THAN 0 (UNLESS RMR IS THE ONLY ERROR - SEE RMR). 


UNIBUS PARITY ERROR. SET BY THE TS11 WHEN IT 
DETECTS A PARITY ERROR ON THE UNIBUS DATA WHEN 
TRANSFERRING TO OR FROM THE CPU'S MEMORY. 


SERIA, BUS PAP TY —, THIS BIT IS SET BY 
THE TS11_ WHEN IT DETECTS A SERIAL BUS PARITY 
ERROR ON DATA RECEIVED FROM THE TS04. 


3 ted MODIFICATION REFUSED. SET BY THE TS11 

WHEN AC POINTER IS LOADED INTO . fa 
SUB=SYSTEM READY (SSR) IS NOT SET. NOTE T 
THIS BIT CAUSES SPECIAL CONDITION BUT i” TERMINATION 


F 
NOT ENABLED, THIS BIT COMING UP IS 
om A FATAL CONTROLLER ERROR OR A SOFTWARE 


NONEXISTENT MEMORY. SET BY THE TS11_ WHEN 
TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 
eaion DOES NOT ehotet MAY OCCUR WHEN FETCHING 

THE COMMAND PACKET, FETCHING OR STORING DATA, 
OR STORING THE MESSAGE PACKET. 


NEED BUFFER ADDRESS. WHEN SET, INDICATES THAT 
THE S04 NEEDS A MESSAGE BUFFER ADDRESS. THIS 


SEQ 0037 
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BIT IS iY DURING THE SET CHARACTERISTICS 
COMMAND (IF A GOOD ADDRESS WAS GIVEN). 


BUS ADDRESS BIT 17. A17_AND are, a * ee TRACK 
etistee OF BITS 17 AND TSBA 


BUS ADDRESS BIT 16. SEE Al7 (BIT 09). 


SUB-SYSTEM READY. WHEN Vv og Ma THAT THE 
TS11/TSO4 SUBSYSTEM IS NOT BUSY AND IS READY TO 
ACCEPT A NEW COMMAND POINTER. 


OFF-LINE. WHEN = A INDICATES THAT THE TSO4 IS 
UNAVAILABLE FOR T 


OF FL INE ~ ANY TAPE MOTION 
COMMANDS. _THIS BIT CAN CAUSE A TERMINATION 7 
OF 1 (ON ATTN INTERRUPT) OR 3 (RESULTS IN NEF) 


FATAL TERMINATION CLASS 01. FC1 AND FCO (BIT 
04) ARE USED TO INDICATE THE TYPE OF FATAL 
ERROR WHICH HAS OCCURRED ON THE TS04. 

BITS ARE VALID ONLY WHEN SC IS SET AND THE 
TERMINATION CLASS CODE BITS ARE ALL SET (111). 


FATAL TERMINATION CLASS 00. SEE FC1 (BIT 05). 


TERMINATION CLASS BIT 02. THIS BIT, ALONG WITH 
THE TC1 AND TCO BITS, ACT AS AN OFFSET VALUE 


eee: AN ERROR ” EXCEPTION CONDITION OCCURS 


ON COMMAND . CH EIGHT arr kk 
VALUES OF THIS FIELD ay te al TICULAR 
OF ERRORS OR EX 


FIELD IS C BE 
UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
HANDLING OF THE CONDITION. 
TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 
TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 


NOT USED. 


UNIBUS ADDRESS + 2 = WRITE ONLY 
SUBSYSTEM INITIALIZE 
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6.3.3 EXTENDED STATUS REGISTER 0 (XSTATO) 


15 14 13 12 11 10 09 08 all 06 05 04 03 02. o 
, TMK: ‘eet ead as ‘ot eed ce HTLAIMOT ONC! = ‘oo het 1WLK 807 /EOT 


BIT NAME DEF INITION 


15 TMK TAPE MARK DETECTED. SET WHENEVER A_ TAPE MARK 
WAS DETECTED yr A_ READ, SPACE, OR SKIP 
COMMAND AND AS A RESULT OF THE WRITE TAPE MARK 
OR WITE TAPE *MARK RETRY COMMANDS. 


RECORD LENGTH SHORT. THIS BIT INDICATES THAT 
WAS SHORTER 


Ly 3 POSITION COUNT WAS EXHAUSTED, OR SKIP 

APE MARKS COMMAND WAS TERMINATED _ BY 
ENCOUNTERING BOT OR A DOUBLE TAPE MARK (IF THAT 
OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 
EXHAUSTING THE POSITION COUNTER. 


LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 
MARKS COMMAND WHEN EITHER TWO CONTIGUOUS TAPE 
pang iB WHEN 


MODE OF TERMINATI 
HROUGH USE OF THE SET CHARACTERISTICS COMMAND. 


RECORD LENGTH LONG. WHEN SET,. THIS BIT 
INDICATES THAT THE RECORD READ WAS LONGER THAN 
THE BYTE COUNT SPECIFIED. 


WRITE LOCK ERROR. WHEN SET, INDICATES THAT 
TE ON WA D BUT THE 


NABL 
LOCK SWITCH ACTIVATED DURING THE OPERATION, 


ore aaa lar 3 FUNCTION. WHEN SET, INDICATES 
THAT THE COMMAND COULD NOT BE EXECUTED DUE TO 
ONE OF THE FOLLOWING CONDITIONS: 


COMMAND SPECIFIED REVERSE TAPE 
as THE TAPE WAS ALREADY 





B 4 
USER DOCUMENTATION MACY11 30A(1052) 29=DEC-78 15:33 PAGE 42 
CZTSHA.DOC 28-DEC=78 14:29 


UNLOAD, OR A_COMMAND WITH THE CLEAR VOLUME 
CHECK (CVC) BIT SET, WHEN THE VOLUME CHECK 


ANY COMMAND, EXCEPT 1 STATUS. OR DRIVE 
care t WHEN THE TSO4 IS OFF=LINE. 

WRITE COMMAND WHEN THE TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS = WLS). 


ILLEGAL COMMAND. SET WHEN A COMMAND IS ISSUED 
AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
MODE FIELD CONTAINS CODES WHICH ARE NOT 
SUPPORTED BY THE TS04. 


ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 
AN EVEN ADDRESS IS REQUIRED.) 


TAPE IS MOVING. 


ON LINE. WHEN SET, INDICATES THAT THE TSO4 IS 
ON-LINE AND OPERABLE. 


INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
hone gag ENABLE BIT SUPPLIED ON THE LAST 


VOLUME CHECK. WHEN SET, INDICATES THAT THE 
OWN OR TURNED 
VOLUME CHECK 
OMMAND R WORD. THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 3. 


we tebe itt DRIVE. WHEN SET, INDICATES THAT 
1600 BPI PHASE ENC RESET, 
INDICATES THAT THE TSO4 HAS ONLY 800 BPI NRZI 
DATA CAPABILITIES. 

WRITE LOCKED. WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF TAPE DOES NOT HAVE A 
WRITE“ENABLE RING INSTALLED. THE TAPE IS, 
THEREFORE, WRITE PROTECTED. 


BEGINNING OF TAPE. WHEN SET, INDICATES THAT 
THE TAPE IS_ POSITIONED AT THE LOAD POINT AS 
7 a BY THE BOT REFLECTIVE STRIP ON THE 


END OF TAPE. THIS BIT IS SET wate THE ca 
IS_ POSITIONED AT OR BEYOND THE END OF TAPE 
Wiok’ “nite STRIP. DOES NOT RESET UNTIL VNHE 

APE PASSES OVER THE REFLECTIVE STRIP IN THE 
REVERSE DIRECTION UNDER PROGRAM CONTROL. 
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6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) 


15 14 13 12 11. 10 09 08 07 06 05 04 03 02 01 00 


‘pur! : 'COR!CRS! !TIG!DBF!SCK! ! !IPR!SYN! !IPO!IED!POS! !POL!UNC!MTE! 
: ; 3 : : ; 'NZO! 2% : :DRP: 'ITM'LCOINZN! !LRC!CRC!VPE! 
GeunbannGasnh Goewbametwee $ Gewntseeetfene4 focepecetawes 


DEF INITION 


DATA LATE. tT WHEN Me 1/0 as IS FULL ON A 
READ OR EMPTY ON A WRITE. THESE CONDITIONS 
OCCUR _WHENEVER THE UNIBUS airy EXCEEDS THE 
DATA TRANSFER RATE OF THE TS04. 

NOT USED. 


CORRECTABLE DATA. IN PHASE ENCODED MODE, A 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 


CREASE DETECTED. FOR NRZI, ALL DATA_ TRACKS 
FOR MORE THAN THREE Fa TIMES 
Nie INCHES OF 


APE. FOR PE, 

DATA TRACKS WENT DEAD FOR 

LESS .1 INCHES BEFORE A VALID POSTAMBLE 
WAS DETECTED. 


TRASH _IN THE GAP. NON-ERASED DATA WAS DETECTED 
IN A GAP DURING A READ, WRITE, WRITE TAPE MARK, 
OR ERASE COMMAND. 


ty Se SKEW. FOR NRZI, DATA OCCURRED 
ET THE 50% MARK AND THE ree MARK OF THE 
FOR PE, IT MORE THAN 


"IN REAB-AFTER-URITE OR TEN 
AD TO PROPERLY CENTER THE 
WINDOWS OF THE FORMAT CHANNEL LOGIC. 


NRZ FIFO OVERRUN. 


SPEED we TAPE SPEED WAS OFF BY MORE _ THAN 

5% DURING A WRITE DATA OPERATION. NOTE THAT SPEED 
AVERAGED OVER 8 TICKS AND THE AVERAGE MUST BE OFF 
5% TO CAUSE THIS ERROR. 


NOT USED. 
Hae a hy PREAMBLE. SET ON A_ PE DRIVE Pd THE 


PREAMBLE APPEARS 10 _ BE SHORTER THAN 36 
CHARACTERS OR LONGER THAN 44 CHARACTERS. ALSO 
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SET IF _ THE PREAMBLE IS__INCORRECTLY ENCODED 
BEYOND THE FIFTEENTH CHARACTER IN READ OR THE 
TENTH CHARCTER IN READ-AFTER-WRITE. 


06 SYN 4 SYNCH FAILURE. SET ON A PE DRIVE IF _ THE 
FORMATTER WAS UNABLE TO ACHIEVE SYNCHRONIZATION 
IN THE PREAMBLE. 


DRP 4 NRZ RECORD DROPPED A CHARACTER (THE NEXT CHARACTER 
WAS TO BE CONSIDERED CRC). 


0S IPO 5.4 INVALID POSTAMBLE. SET ON A_ PE_ DRIVE DURING 
READ OR WRITE IF ANY OF THE FIRST 39 CHARACTERS 
OF THE POSTAMBLE ARE NOT READ CORRECTLY. 


I1™ S64 ILLEGAL TAPE MARK FOR NRZ. 


04 IED & INVALID END DATA. FOR PE, EIGHT OUT OF NINE 
TRACKS WENT DEAD BEFORE THE POSTAMBLE WAS DETECTED. 
LRO 4 FOR NRZI, DATA WAS NOT DETECTED IN EITHER THE 


LRCC OR CRCC WINDOWS. (LRC WAS ZERO) 


03 POS S.4 POSTAMBLE SHORT. SET ON PE DRIVES DURING A 
READ OR WRITE WHEN LESS _ THAN 38 ALL~ZEROES 
CHARACTERS ARE READ FOLLOWING THE ALL-ONES 


CHARACTER. 
NZN S.4 NRZ NOISE RECORD (FEWER THAN 13(10) FRAMES). 
02 POL & POSTAMBLE LONG. SET ON PE DRIVES DURING READ 


OR WRITE OPERATIONS WHEN THE POSTAMBLE EXCEEDS 
42 CHARACTERS. 


LRC 4 LRC ERROR. SET ON NRZI DRIVES WHEN THE LRCC 
CHARACTER WAS FOUND IN ERROR. 
01 UNC & UNCORRECTABLE DATA. SET ON PE DRIVES WHEN 


A 
PARITY ERROR OCCURRED WITHOUT A CORRESPONDING 
DEAD TRACK INDICATION. 


CRC S CRC ERROR. SET ON NRZI DRIVES WHEN THE CRC 
CHARACTER WAS FOUND TO BE IN ERROR, 

00 8 MTE os TRACK ERROR. SET ON PE DRIVES WHEN MORE 

HAN ONE DEAD TRACK OCCURRED IN THE PREAMBLE OR 


E 
IN THE DATA FIELD. 


VPE 6 VERTICAL PARITY ERROR, SET ON NRZI DRIVES WHEN 
eee CID NOT CONTAIN AN ODD NUMBER OF 


Om 


E 4 
USER DOCUMENTATION MACY11 30A(1052) 29-DEC=78 15:33 PAGE 45 
CZTSHA.DOC 28-DEC=78 14:29 


6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 


12 11. 10 09 08 al 06 | =. - 03 02. ll ~. 
+ + 
{SIPIBPE CAF! “WCF IDTP!DT7i0T6! | IDT5!DT4!DT3! !pT2!DT1!DTO! 


‘ QummipenenGuend a a ey (emerisemieemns guvawgenngmend QuemGarbann} 


TCC DEF INITION 


OPERATION IN PROGRESS. (TAPE MOVING) 


SiLO PARITY ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 
ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 
MESSAGE PACKET. 


SERIAL BUS PARITY ios AT DRIVE. SET BY THE 

TSO4 WHEN A_ PARITY ERROR IS DETECTED ON DATA 
TRANSMITTED FROM THE TS11 TO THE TS04. CAUSES FATAL 
CLASS 2 BECAUSE THE ERROR MIGHT HAVE OCCURRED DURING 
THE TRANSMISSION OF THE MESSAGE PACKET. 


CAPSTAN ACCELERATION FAIL. AFTER ACCELERATING 
TAPE FOR .2 INCHES, THE TAPE SPEED WAS CHECKED 
“— FOUND TO BE OUT OF TOLERANCE BY MORE THAN 


NOT USED. 

DESKEW BUFFER FAIL. ONE OF THE DESKEW BUFFERS 
FAILED TO ASSERT ‘OUTPUT READY'’ WITHIN 20 
MICROSECONDS AFTER BEING ENABLED. _ THE DEAD 
TRACK BITS WILL INDICATE ON WHICH TRACKS THIS 
FAILURE OCCURRED. 

NOT USED. 

DEAD TRACK PARITY. THE BITS DTP THROUGH DTO 
INDICATE WHICH TRACK(S) WENT DEAD, IF ANY, 

DURING THE LAST in TRANSFER OPERATION. __ IF 
DESKEW BUFFER FAIL OF IS SET, THESE BITS 
INDICATE WHICH CHANNEL ‘F AILED. 

DEAD TRACK 7. SEE DTP. 

DEAD TRACK 6. SEE DIP. 

DEAD TRACK 5. SEE DIP. 

DEAD TRACK 4, SEE DIP. 


DEAD TRACK 3. SEE DIP. 
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02 OTe Ss DEAD TRACK 2. SEE DTP. 
01 =oT! S DEAD TRACK 1. SEE DTP. 
00 DdTO Ss DEAD TRACK 0. SEE DTP. 
NOTE : A_SET ath ae Ae eran THE UCODE our ae IS RETURNED 


TN DT7 THRU DTO. ON A GET STATUS COMMAND, THE RESIDUAL CAPSTAN 
TICK COUNT (INTERNALLY R7) IS RETURNED IN DT7 THRU DTO. 
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6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 


15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


tama t teen temntennt teen tema tennt toma tome tenet femepemnpownt femnponn pon + 
MICRO DIAGNOSTIC ERROR CODE : LMX: OPI: (REV: CRF: DCK: ‘NOI : ‘RIB: 


Se ee ee ee ee ee, ee a eee eee ees 


BIT NAME TCC DEFINITION 


15 TO 08 MiCRO DIAGNOSTIC ERROR CODE. (SEE LIST 4 iva. BELOW). 


7 AND THE 
FATAL CLASS CODE IN THE TSSR EQUALS 0, INDICATING 
AN INTERNAL DIAGNOSTIC FAILURE. 


LIMIT EXCEEDED. SET WHEN THE a # TENSION ARMS 
HAVE EXCEEDED THEIR ALLOWABLE TRAVEL AND HAVE 
CAUSED THE ACTIVITATION OF THE fet Thee. SWITCHES. 


NO TENSION EXISTS ON THE MOUNTED T. 


OPERATION INCOMPLETE. SET WHEN A READ, SPACE, 
OR SKIP OPERATION HAS MOVED 25 aaa OF TAPE 
WITHOUT DETECTING ANY DATA ON THE TAPE. 


DIRECTION OF CURRENT — WAS REVERSE (BUT 
IS 0 IF REWIND OR FORWARD) 


CAPSTAN RESPONSE FAILURE. A MOTION COMMAND WAS 
GIVEN TO THE CAPSTAN BUT WE DID NOT GET A TICK 
BACK WITHIN A REASONABLE AMOUNT OF TIME. 


DENSITY CHECK. SET ON PE DRIVES WHEN A PE 
IDENTIFICATION BURST WAS NOT DETECTED WHEN 
MOVING OFF OF BOT. SET ON NRZI DRIVES WHEN A 
NON~NRZ I gt idle BURST. WAS FOUND WHEN 
MOVING OFF OF BOT. 


NOISE RECORD. SET DURING A READ OR SPACE 
OPERATION WHEN A BURST OF FLUX CHANGES, WHICH 
DO NOT QUALIFY AS A RECORD (BUT TOO MANY TQ 
IGNORE), ARE DETECTED: 


NRZI: AT LEAST TWO CHARACTERS IN A ROW BUT 
LESS THAN TWELVc, FOLLOWED BY A CHARACTER IN 
EITHER THE CRCC OR LRCC WINDOWS. 
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PE: AT og 24 CHARACTERS IN A ROW THAT oS 
NOT QUALIFY AS A TAPE MARK OR A _ DAT 
PREAMBLE . 


NOT USED. 


REVERSE INTO BOT. A READ, SPACE, OR SKIP 
COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED: THE 
BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
DIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 


MICRG DIAGNOSTIC ERROR CODES 


FOLLOWING IS A LIST OF THE ERRORS er ARE DISPLAYED IN THE MICRO 

DIAGNOSTIC ERROR CODE ‘g git BITS 15 AND ALSO IN THE LIGiTs ON THE 

Meee CONTROL PANEL, DUE TO F STAN BOARD, 1/0 —s Ss. 
WRITE BOARD, READ BOARD, OR FORMATTER BOARD.. THE MICRO WILL BE IN A 

TIGHT LOOP IN THE DISPM PROGRAM, WAITING FOR OPERATOR OR CPU 

INTERVENTION WHILE THE ERROR IS BEING DISPLAYED IN THE CONSOL 


E 
LIGHTS. IT IS APP IS BEING DE to IF THE *UOK*' 
LIGHT IS NOT LIGHT ST 

NUMBER (1 


THESE TESTS, ENTER MAINTENANCE WW 

POSITION, MAINTENANCE SWITCH UP, PRESS RESET), ENTER THE OFF-LINE 
TEST NUMBER (SEE SCOPE LOOP COLUMN BELOW) IN THE OPERATOR CONSOLE 
Lincs CENTER ONES WITH LEFT-MOST SWITCH, ENTER ZEROES WITH 
RIGHT-MOST SWITCH), AND PRESS ON-LINE BUTTON. TEST WILL LOOP UNTIL 
ON-LINE SWITCH IS RETURNED TO OFF-LINE POSITION, ERRORS WILL BE 
DISPLAYED CONTINUOUSLY 


ERROR PROGRAM ERROR DESCRIPTION LIKELY SCOPE 
(DISPLAY) MODULE LOOP 


337 OPERATIONAL CAPSTAN RUNAWAY ERROR (H3.RNY). CAPSTAN DIDN'T 
CODE STOP WITHIN ACCEPTABLE WINDOW AFTER LAST COMMAND. 


100 IOTSM BASIC I/0 MICRO bn Ae tay M8967 =—:14 
ERROR, IOATN, HANDSHAKING 
DATA WINDOW TEST BETWEEN’ tHe 1/0 
AND MAIN MICROS. 


NOTE: CAN ALSO BE CAUSED BY THE 
SERIAL BUS .SHIN (SHIFT IN) 
STUCK ASSERTED. 


ERROR IN J/O CONTROL REGISTER TEST M8966 
M8967 


FAILURE OF FRAME COUNTER TEST M8966 
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103 1OTSM FAILURE OF 1/0 SILO NON=PARITY ERROR 
DATA TEST OR THE WRITE FLAG. 


10'SM FAILURE OF I/0 SILO PARITY ERROR 
TEST OR DATA LATE TEST. 


IOTSM FAILURE OF SHIFT LOOP WITH ZEROES. 
IOTSM FAILURE OF SHIFT LOOP WITH ONES. 
OTSM FAILURE OF SHIFT LENGTH MUX. 


107SM we TO + Rat CORRECT OP=CODE 
FROM TS11 WHEN WE SENT DATA OVER 
THE SERIAL “BUS. 


FAILURE OF 1 KHZ CLOCK TEST. 
TSTS TAC SYNC FLOP AND ATIN, TOO. 


LIGHT REGISTER CHANGED WHEN MOTION 
REGISTER WAS CLEARED. 


FWD OR MVG BITS WRONG AFTER 1 TICK 
OF SIMULATED COMMAND AND TACH PULSES. 


FAILURE OF SIMULATED CAPSTAN 
SPEED TEST. THE CAPSTAN SPEED 
COUNTER WAS OUT OF RANGE WHEN 
TAPE MOTION AT SPEED WAS 
SIMULATED. 


FAILURE OF SIMULATED SLOW CAPSTAN 
TEST. 2 PEED COUNTER DID NOT LATCH 
UP WITH MAX COUNT WHEN SLOW TACH 
TICKS WERE SIMULATED. 


FAILURE OF SIMULATED CAPSTAN DECEL 
TEST. COUNTER NOT ZERO FOR FORWAPD 

OR 377 FOR a WHILE DECELERATING, 
oR MVG BIT NOT 


FAILURE OF MOVING FLOP TO GO TO ZERO G159 
AFTER STOPPING (DIRECTION REVERSAL 
FOR ONE TACH TICK). 


FAILURE OF WRITE BOARD TO TURN ON M8929 
AND EMPTY THE SILO, OR DATA LATE M8966 
BIT DOESN'T WORK. 


FAILURE OF WRITE BOARD TO EMPTY M8929 
SILO AT CORRECT SPEED. 


FORMATTER FLAG DOESN'T WORK ON THE M8922 
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125 PE TSM 


126 PETSM 


PETSM 


M8922. 
FORMATTER SILO FILLING AND DATA 
ERROR 


PEAK SHIFT TEST ERROR 


FORMATTER TABLE LOOKUP ROM CHECKSUM 
TEST ERROR 


& 
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- TITLE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 


-ENABL ABS AMA 
2000 


5 o* 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER ALL 


HEADER CZTSH,A,0,5000,5000,2700,.— ,.DESCM 
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-SBTTL DISPATCH TABLE 


; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
& 1 IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 5 
LSDISPATCH:: 





Om 


PROGRAM HEADE 
CZTSHA.P11 


002126 
002130 


002132 
002132 


R_AND TABLES 
28-DEC-78 14:34 


172520 
000150 


MACY11 a a Se crak a: PAGE 54 


T HARDWARE P 


~-SBTTL DEFAULT HARDWARE P-TABLE 


THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 


THE TEST=DEVIC 


E PARAMETERS. 


THE STRUCTURE OF THIS TABLE 


IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW 


DFPTBL 


:TSDB ADDRESS. 


VECTOR ADDRESS. 


SEQ 0051 
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2356 -SBTTL SOFTWARE P-TABLE 

2357 

2358 p++ 

2359 ; THE SOFTWARE P=-TABLE CONTAINS THE VALUES OF THE PROGRAM 
2360 ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


s 


BGNSW = SFPTBL 


EFEX 


Ss 
8 


CLEAR COUNTERS FLAG. 
;RESET RANDOM VARIABLES wr PASS FLAG. 
ZHALT AF TER EACH COMMAND FLAG. 


: SPARE . 
; SPARE 
:DISABLE INTERRUPTS FLAG. 


: INHIBIT ERROR ere! FLAG. 
[CHANGE CMD SEG TABLE FLAG. 


7 SPARE. 
wee RESIDUAL FRAMECOUNT ERROR REPORT FLAG. 


; CHARACTERISTICS CODE (DEFAULT = 40). 
;COMMAND 2 (DEFAULT = _WRITE/VERIFY). 
7BYTE COUNT (DEFAULT = MAX BUFFER SIZE) 
NUMBER OF OPERATIONS (DEFAULT = 10). 
SPATTERN (DEFAULT = RANDOM). 

COMMAND 3 (DEFAULT = WRITE/VERIFY). 
:BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
R OF OPERATIONS (DEFAULT = 10). 

PATTERN (DEFAULT = RANDOM) . 

COMMAND 4 (DEFAULT = WRITE/VERIFY). 

;BYTE gd (DEFAULT = MAX BUFFER SIZE). 
R OF OPERATIONS (DEFAULT = 18). 

“PATTERN (DEFAULT = RANDOM). 

;COMMAND 5 (DEF AULT = WRITE /VERIFY) 

BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 

NUMBER OF OPERATIONS (DEFAULT = 10). 

PATTERN (DEFAULT = RANDOM). 

;END OF CMD SEQ TABLE CODE. 


CLRFLG:: BYTE 
RRANV:: .BYTE 
HAE: : 


rononoroporelferory 


S3E 


DINT:: 
IREC: 
CHGFLG: : 
PIRE:: 


CHAR: : 
CMDD: : 


e Fegeesesness 


oO 
= 
-9OUW DOOCOCOCOOCOOoOOoO— 


LSP 


000012 
000007 RANP 
00000 


ee 
SPE EE 


L10001: 
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-TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


++ 
; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
;_ARE USED IN MORE THAN ONE TEST. 


EQUALS 
: BIT DIF INITIONS 


t EVENT FLAG DEFINITIONS 
:  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
EF16:EFO1 AVAILABLE FOR PROGRAM USE 


: START COMMAND WAS ISSUED 

; RESTART COMMAND WAS ISSUED 

: CONTINUE COMMAND WAS ISSUED 

; A NEW PASS HAS BEEN STARTED 

; A POWER-F AIL/POWER-UP OCCURRED 
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CZTSHA.P11 


MACY11 30A(1052) 
28-DEC-78 14:34 


177761 
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o-nNw 


VIO NIOOSO—fhWw 


*- MMMM MMMMnmnmMmmnn @ 
nnhnnnhnhuhoanwn 
nnnnnhnnnnhnannn 
NWR UA NOOO 33a 

o . 


: PRIORITY LEVEL DEFINITIONS 
PRIO7== 340 


; REGJSTER USAGE. 


- PASSES PARAMETERS os tol a SUPERVISOR. 
- COMMAND SEQUENCE TABLE POINTER. 

~ GENERAL PURPOSE REGISTER. 

- GENERAL PURPOSE REGISTER. 

- GENERAL PURPOSE REGISTER. 

~- CURRENT LOGICAL DEVICE NUMBER X 2. 
~- STACK POINTER 
- PROGRAM COUNTER. 


i THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 
TS.SC==100000 :SPECIAL CONDITION BIT. 
S 0000 PARITY ER “a 


; UNIBUS 
SERIAL BUS PARITY 


ERROR. 
;REGISTER MODIFICATION REFUSED. 
;NON-EXISTENT MEMORY. 


UNI T READY BIT. 
:OFF LINE. 


L 
:FATAL CLASS CODE MASK. 
TSC. ree==19 97761 ; TERMINATION CLASS CODE MASK. 
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; THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 
sACKNOWLEDGE BIT 
CLEAR VOLUME CHECK. 
[OPPOSITE BIT 
+ SWAP a all 
BRF . C==4000 :BYTE/RECORD/F ILE COUNT FLAG BIT. NOT USED 
BY TSO4 BUT USED INTERNALLY BY THIS PROGRAM ONLY 
MOD. C2==2000 :MODE BIT 2 
. :MODE BIT 1 
:MODE BIT 0 
; INTERRUPT ENABLE 
FORMAT BIT 1 
[WRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 
NOT USED BY TS04. 
= FORMAT BIT 
JUMP BIT-TO DIRECT oe PROGRAM TO JUMP TO 
ZA CERTAIN LOCATION IN THE COMMAND SEQUENCE 
: TABLE . INTERNAL USE ONLY. 
OMMAND BIT 4 


I 
INSERT DELAY. INTERNAL USE ONLY. 
; COMMAND BIT 3 


ge 
Ze 
33 


3 


NMoNMINNN MN NNNPererg 
DAA AAAI 

Me 2 2 SS SS Ss Ss SS 

SOONAUSWNHO 


BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 
“ ESS==200 ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT). 
H.EAI==40 ENABLE ATTENTION INTERRUPTS. 
cH -ERI==20 SENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
DF TSCH==CH.EAI DEFAULT CHARACTERISTICS CODE. 


3 THE FOLIOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 
7 IN THE MESSAGE BUFFER. 


MS .RF C== RESIDUAL FRAME C 


MS.XS3==14 VEXT STATUS REG 3 
;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 


x0. TMK==100000 : TAPE MARK. 
00 ;RECORD gy SHORT . 


7LO 
;RE CORD LENGTH LONG. 
LINE BIT 
T ‘BIT. 
x0. EOT== :EOT BIT. 
7 THE FOLLOWING ARE 8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 
000010 X3.DCK==10 DENSITY CHECK. 
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000337 X3.RNY==337 ;CAPSTAN RUNAWAY UDIAG ERROR CODE. 


; THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
;PACKET ENTRIES. 


3 CMDPKT+0==TSO4 COMMAND. 

; CMDPKT+2= arin ADDRESS LOW. 

; CMDPKT+4==BUFFER ADDRESS HIGH. 
CP. CNT== : CKDPKT+6==BYTE/FILE/RECORD COUNT 


: MISCELLANEOUS DEFINITIONS. 


INTPRI==PR107 PRIORITY TO BE USED IN INTERRUPT STATE. 
TSBA DB :DATA_BUFFER ADDRESS REGISTER. 
SCHCNT==10 ARBITRARY BYTE LENGTH FOR CHARACTERISTIC 
;BUFFER LENGTH. (EVEN #) 
MSGCNT==16 SMESSAGE BUFFER LENGTH IN BYTES. (EVEN #) 
DIABLK==DATAWT : G 
DIACNT==20 
DATCNT==4096. 
ay. TO_JNSURE 
; THE SUPER. 
CNTLEN==CNTEND~CNTBGN ;LENGTH OF STATISTICAL COUNTER 
RNOPSC==177700 OM # OF OPERATIONS MA 
:CODE TO SELECT RANDOM PATTER 
[READ RECOVERY ATTEMPT LIMIT. 
[WRITE RECOVERY ATTEMPT LIMIT. 
= CONSTANT USED TO RESET RANDOM # GENERATOR BASE. 
RANDOM # — LOCATION. 


774 “NOT E TABLE. 
177740 NCMD.C==ACK.C!CVC.C!OPP.C!SWB.C!MOD. c3!MOD. C2!MOD.C1!MOD.CO!IE.C!FMT. C1'FMT.CO 
;NOT *‘COMMAND’’ BIT 


; THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TSO4 COMMAND. 


100013 DRI== ACK.C!CMD.C3!CMD.C1!CMD.CO 
DRIVE INIT. 


104001 RDF== ACK.C!BRF.C!CMD.CO 
READ FORWARD 


104401 RDR== .C!BRF.C!MOD.CO! CMD. CO 
READ REVERSE 


104005 WRT== -C!BRF.C!CMD.CO!CMD.C2 
WRITE COMMAND 


104105 WTV== ~C!BRF.C!VFY.C!CMD.CO!CMD.C2 
WRITE VERIFY 


104010 SRF == ~C!BRF.C!CMD.C3 
SPACE RECORD FORWARD 


104470 SRR== ~C!BRF.C!MOD.CO!CMD.C3 
SPACE RECORD REVERSE 
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105401 RNR== ACK.C!BRF.C!MOD.C1!MOD.CO!CMD.CO 
;READ REV RETRY1 - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 


125401 RNF==  ACK.C!BRF.C!OPP.C!MOD.C1!MOD.CO!CMD.CO 
:READ REV RETRY2 = REREAD NEXT FORWARD, IE.READ FORWARD, SPACE REVERSE 


105001 == ACK.C!BRF.C!MOD.C1!CMD.CO 
sREAD FWD RETRY1 = REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, READ FORW 


125001 == ACK.C!BRF.C!OPP.C!MOD.C1!CMD.CO 
;READ FWD RETRY2 = REREAD PREVIOUS REVERSE, IE. READ REVERSE, SPACE FORW 


105005 ACK.C!MOD.C1!BRF.C!CMD.C2!CMD.CO 
WRITE RETRY 


102010 == ACK.C!MOD.C2!CMD.C3 
REWIND COMMAND 


100012 ACK.C!CMD.C3!CMD.C1 
MESSAGE BUFFER RELEASE 


100011 ==  ACK.C!CMD.C3!CMD.CO 
sWRITE TAPE MARK. 


101011 ==  ACK.C!MOD.C1!CMD.C3!CMD.CO 
sWRITE TAPE MARK RETRY. 


105010 SFF== ACK.C!BRF.C!MOD.C1!CMD.C3 
SPACE FILE FORWARD 


105410 == ACK.C!BRF.C!MOD.CO!MOD.C1!CMD.C3 
SPACE FILE REVERSE 


100017 == ACK.C!CMD.CO!CMD.C1!CMD.C2!CMD.C3 
GET EXTENDED STATUS 


100411 == ACK.C!MOD.CO!CMD.C3!CMD.CO 
ERASE 3 INCHES OF TAPE 


100412 ACK.C!MOD.CO!CMD.C3!CMD.C1 
UNLOAD COMMAND 


101012 ==  ACK.C!MOD.C1!CMD.C3!CMD.C1 
ERASE TAPE. 


140004 == ACK.C!CVC.C!CMD.C2 SET DEVICE CHARACTERISTICS. 
100006 == ACK.C!CMD.C2!CMD.C1 :DIAGNOSTICS. 

000040 JMP.C ; JUMP TO ‘N''TH COMMAND 
009020 == ODLY.C DELAY ‘N'’ MS, 

177777 == 177777 END OF COMMAND SEQUENCES 
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. SBTTL 


GLOBAL DATA SECTION 


i THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
: IN MOR ONE TEST 


E THAN 


> STORAGE FOR DEVICE REGISTERS 


LS$DR:: 
LSDRST:: 


CMDPKT:: 


GSCPK:: 


MSGPKT:: 


: .WORD 


DEVREG 0,0 


COMMAND PACKET. 


= -+38177774 
0 04 COMMAND. 

HE Boots LOW ADDRESS. 
HE BUFFER HIGH ADDRESS. 


HE BYTE/RECORD/FILE COUNT. 


GET STATUS COMMAND PACKET. 

= - 38177774 sMUST BE ON MOD 4 BOUNDRY. 
«WORD GES 

MESSAGE BUFFER RELEASE COMMAND PACKET. 

= Ph 77774 ;MUST BE ON MOD 4 BOUNDRY. 


: WORD 


REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 
guerre MUST BE ON A MODULE 4 BOUNDARY. 
«WORD 1 


WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 
-BLKw 7 : :: MESSAGE TYPE. 


:: DATA FIELD LENGTH. 
:: RESIDUAL FRAME COUNT. 
:: XSTATO 


STH WORD:: XSTAT3 


SEQ 0058 
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002456 


177774 


177777 
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GLOBAL DATA SECTION SEQ 0059 


MESSAGE PACKETS. 


-BLKW 7 MESSAGE PACKET FOR DEVICE #0 
-BLKW 7 ; 
-BLKw 7 


:: IBLKW 7 “MESSAGE PACKET FOR DEVICE #3 


SET CHARACTERISTIC BLOCK. 


$8 aa ; :: MSGPKT + aoe mal UP BY EXCUTE ROUTINE). 


:: MSGPKT 
MSGCNT . :: MSG BUFFER LENGTH (BYTES) 
CH.EAI : :: CHARACTERISTICS WORD(SET BY SETUP ROUTINE). 


TSO4 REGISTER ADDRESSES. 


7: .BLKW 4 :TSO04 DATA BUFFER ADDRESSES. 
:: .BLKW 4 3TSO4 STATUS REGISTER ADDRESSES. 
: .BLKW 4 3TS04 VECTOR ADDRESSES. 


TSGINT:: 


: ADDRESSES OF MESSAGE PACKETS. 
MSGPKA: : 
MS 


:DEVI ° 
SDEVICE 3. 

ADDRESSES OF INTERRUPT HANDLING ROUTINES. 
TS4 INO DEVICE 0. 
TS4IN1 SOE VICE Ve 
TS4IN2 EVICE 2. 
TS41N3 DEV SCE 3s 


TSO4 CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 


33 9 DEVICE 
0 2D 


. 
© 


DEVTBL : 


0 
EVICE 1 
0 SDEVICE 2 
0 SDEVICE 3 


UNIT NUMBERS OF ALL DEVICES BEING TESTED(1~-4). 
WHEN DEVICE IS NOT IN USE, IT,S LOCATION WILL = -3. 
R5 WILL ALWAYS CONTAIN THE pRESENT LOGICAL UNIT NUMBER X 2. 


- WORD 
* WORD 
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2779 COUNTER AREA. 
78 


:BYTES WRITTEN. 


COVERABLE READ REV ERRORS. 
?RECOVERABLE READ FWDERRORS. 
US CNT READ FWD ERRORS. 


SPECIAL CONDITION COUNT. 

= COUNT oa WRITE VERIFY ERRORS. 

; COUNT OFF OF TIMES WE SAW HARD ERRORS. 
SEND OF STATICTICAL COUNTERS. 


SY HKHHLHKHKHEHKHEHSL 


+ 
RECENT: -BLKW 


; THE FOLLOWING ARE a DEFINITIONS OF VARIABLES 
: USEP BY THE PROGRAM 


DATAWT:: . WRITE BUFFER ADDRESS. 
3 READ BUFFER ADDRESS. 
+ STORAGE FOR VALUE OF N 
; TEMP STORAGE FOR VALUE OF N. 
[STORAGE FOR BPCR VALUE. 
CONTAINS COMMAND WORD BEING EXECUTED PRESENTLY. 
>SAVE LOCATION FOR CMD WORD DURING ERROR RECOVERY 
CONTAINS PREVOUS COMMAND WORD. 
[CURRENT COMMAND LOGGING CODE. 
RANDOM WRITE LENGTH MASK, TO BE SET UP BY TESTS 
:RANDOM # GENERATOR BASE. 
zRANDOM # SAVE LOCATION. 
[TIME COUNT 1. 
At ng COUNT 2. 
LOOP COUNT. 
‘IMP COMMAND LOCATION COUNT. 
PATTERN SELECT CODE. 
CURRENT TERMINATION CLASS CODE. 
[LOCATION FOR SAVING CURRENT DEVICE POINTER. 


elelelelelele) 


:: WOR 
RSSAVE:: . 


NUMBER OF RECORDS FROM BOT(CLEARED ONLY ON REWIND). 





am 


AREAS 
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003016 
000006 


003044 


000 
600 
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ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
AFTER EACH COMMAND IS COMPLETED. 


3:4 OF RECOVERY ATTEMPTS EXECUTED. 
[RECORD COUNT HAS ae UPDATED FOR THIS RECORD. 


UR 
[UNRECOVERABLE ERROR HAS OCCURED. 
ERROR RECOVERY MODE. 

; CURRENT UNIT HAS BEEN DROPPED 


lelolelelelola) 


ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 


: INTERRUPT OCCURRED + wg FOR EACH DEVICE. 

[RANDOM EVERYTHING FLAG 

7SET DURING WRITE/VERIFY ioe ead 

;EOT HAS BEEN REACHED ON THIS PASS 

;PERFORMANCE REPORT HAS BEEN REQUESTED. 

ENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO. 
: INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 


leloleleleleor >, 


ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 


STAFLG:: .BYTE 0 iSTART FLAG = SET BY INIT CODE IF STARTING. 
PWRFLG:: ecer 0 ;POWER FAILURE FLAG = SET ONLY DURING INIT. 
EV 





BEEN LOGGED FOR THIS RECORD. 


a 
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3 THE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE 
;HAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
:CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 


CMDSEQ:: .WORD SCH 7SET CHARACTERISTICS. 
- WORD ‘goes 


0 

WIV WRITE VERIFY 
DATCNT MAX 

00012 


WIV VERI 
DATCNT oo 5 Ad LENGTH. 
00012 TIMES; 


RANP : RANDOM PATTERN. 
WIV sWRITE VERIFY. 
DATCNT SMAX BUFFER LENGTH. 
00912 TEN ae hat 


RANDOM PATTERN 
Sa VERIFY, 

MAX BUFFER LENGTH. 
; TEN TIMES. 


OM PATTERN. 
SEXTENST ION TO HOLD 1 MORE CMD 
SOFT END OF SEQUENCE TABLE. 


°o 
—4 
3 oe 
Oo 
WININO 


HARD END OF SEQUENCE TABLE. 
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;THE FOLLOWING IS THE TSO4 COMMAND TABLE 
CMDTBL:: .WORD DRI :DRIVE INIT. 
«WORD RDF :R FORWARD. 
[READ REVERSE . 


WRITE 
iWRITE/VERIFY. mi ist ALL RECORDS, RDR AND 
A ON ALL RECORDS, RDF AND 
TA ON ALL RECORDS.) 
ECORDS FORWARD. 

é " RECORDS REVERSE. 

READ NEXT REVERSE. 1.E., SPACE FWD, READ REVERSE. 

;READ NEXT F I READ FORWARD, SPACE REVERSE. 
READ PREVIOUS FORWARD. 1.£., SPACE REVERSE, READ FORWAR 
:READ PREVIOUS REVERSE. I.£., READ REVERSE, SPACE FORWAR 
MESSAGE BUFFER RELEASE 
[WRITE TAPE MARK 

sWRITE TAPE MARK 7 A ER 

7SPACE 'N'' FILES FOR 

SPACE ‘N’' FILES REVERSE. 

[GET EXTENDED STATUS. 
; ERASE 3 INCHES OF TAPE. 

REWIND AND UNLOAD. 

7CLEAR TAPE. 

7SET CHARACTERISTICS. 

DIAGNOSTIC COMMAND . 

; JUMP TO THE NTH COMMAND IN THE SEQUENCE. 
[DELAY ‘N'' MS. 
[END OF COMMAND TABLE 


ond anna 
MN—NOO--NO 


a 3 9 — 9 4 4) 9) 4 Ss 


00004 
00002 


SEs 
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: THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 
CMDASC:: .ASCII /DRI/ :DRIVE INIT. 
ASC! /RDF/ READ FORWARD. 
/RDR/ :READ REVERSE. 
/WRT/ : WRITE 


/WTV/ sWRITE/VERIFY. (WRITE ALL RECORDS, RDR AND CHECK a 
[ON ALL RECORDS, RDF AND CHECK DATA ON ALL RECORDS.) 


/ SRF / ;SPACE ‘N’* RECORDS FORWARD. 

/SRR/ ;SPACE 'N’* RECORDS REVERSE. 

/RNR/ READ NEXT REVERSE. I.E., SPACE FWD READ REVERSE. 

/RNF / sREAD NEXT FORWARD, I.E., READ FORWARD, SPACE REVERSE. 
/RPF / sREAD PREVIOUS FORWARD. IE., SPACE REVERSE, READ FORWARD 
/RPR/ sREAD PREVIOUS REVERSE. IE., READ REVERSE, SPACE FORWARD 
/WRR/ WRITE RETRY. 

/RWD/ ;REWIND. 

/MBR/ MESSAGE BUFFER RELEASE 

/WTM/ WRITE TAPE MARK 

/WTR/ WRITE TAPE MARK RETRY. 

/SFF/ 3SPACE ‘N’’ FILES FORWARD. 

/SFR/ iSPACE ‘N’’ FILES REVERSE. 

/GES/ :GET EXTENDED STATUS. 

/ERS/ ;ERASE 3 INCHES OF TAPE. 

/UNL/ REWIND AND UNLOAD. 

/CLN/ CLEAN TAPE. 


/SCH/ SET CHARACTERISTICS. WHERE BRF=200, 40, 20, 0. 
7SEE TS11/TSO4 PROGRAMMING SPECIFICATION FOR DESCRIPTION 


ge 
ry 


YIYIYYYYYY 
WN —OOONOUS 


NRWAWN NON 


oO 

Ww 

al 

xt) _ 
Oo 


/DIA/ DIAGNOSTICS. SEE 1TS11/TSO4 PROGRAMMING SPECIFICATION 
:FOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAGNOSTIC D 
2 INTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED. 


/MP/ ; JUMP TO THE NTH COMMAND IN THE COMMAND 
;SEQUENCE TABLE, WHERE N IS DEFINED IN 
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THE # OF OPERATIONS. 


-EVEN 
ASCII /DLY/ ;DELAY ‘N\"" MS, WHERE N IS DEFINED IN 
; THE # OF OPERATIONS. 


003372 
046104 


003376 -EVEN 
ofA 104 ror /END/ END OF COMMAND SEQUENCE. 


3402 


RRR ARREEEEEEKEEEEERKEEKEEEEEERREREKEKEREREKEEEREEEKEREEERERERKEER 
EERE KEKE EKER EERE EKER EKEEKREKKEKEKEREEEEEEKEREREERKEEKKE KE 


PATCH AREA 
-BLKW 66. 


FREER EK ERE RE KERR ERKEKEEKEKEKEEKEEEREKREREREREREKERERREEEE 
FIRE KEKE EEE KER ERE KEE EKER 
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sone -SBTTL GLOBAL TEXT SECTION 
2991 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT a i 
22 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED | 
2995 + MORE THAN ONE TEST. 
299 : 
2995 
2996 : 
2997 ; NAMES OF DEVICES SUPPORTED BY PROGRAM 
404 003606 DEVTYP <TS04> 
003606 LSDVTYP:: 
3001 
3002 
3003 ; 
tel ; FORMAT STATEMENTS USED IN PRINT CALLS 
3006 
3007 -NLIST BEX 


003614 051524 032060 042040 DESCM:: .ASCIZ_ /TS04 DRT/ 
003625 045 022516 052501 CODELM:: .ASCIZ /%NZAUNIT %D1%S2%ATSO4 CODE LEVEL = P%O3%N2N/ 


-EVEN 
003702 054130 020130 046503 HALTM:: .ASCIZ_ /XXX CMD = TYPE <CR> TO CONTINUE/ 
003742 asta: 020104 040520 CMDPKM:: .ASCIZ /CMD PACKET ADR NOT ON MODULO 4 BOUNDRY/ 


00401 E 
004012 054130 020130 040504 WIVERM:: .ASCIZ /XXX DATA COMPARE ERROR/ 
004041 116 020117 051524 TOERM:: .ASCIZ /NO TSO04 RESPONSE/ 

047125 042504 044506 SCERM:: er frag ne Mn ee COND IT ION/ 


004116 043122 020103 047516 RFCERM:: .ASCIZ /RF 
004133 124 030123 N :: .ASCIZ /TSO4 NOT READY/ 
004152 042522 051124 020131 RLEXM:: .ASCIZ /RETRY LIMIT EXCEEDED ON ABOVE ERROR/ 
004216 052101 042524 052116 ATTNM:: .ASCIZ /ATTENTION CONDITION - UNIT OFF LINE/ 
004262 052506 041516 044524 FUNRM:: .ASCIZ /FUNCTION REJECT/ 
2 06 040524 020114 -ASCIZ_ /FATAL_SUBSYSTEM ERROR/ 
004330 047516 044440 052116 NOINTM:: .ASCIZ /NO_ INTERRUPT/ 
004345 124 050101 020105 T eASCIZ = /TAPE STATUS _ALERT/ 
004367 124 047517 046440 TOOMM:: .ASCIZ /TOO MANY INTERRUPTS/ 
004413 103 050101 052123 RNYM eASCIZ /CAPSTAN RUNAWAY/ 
004433 122 041505 053117 RERM -ASCIZ /RECOVERABLE ERROR/ 
004455 125 051116 041505 URERM:: .ASCIZ_ /UNRECOVERABLE ERROR/ 
0045u i 045 022516 052501 DROPDM:: .ASCIZ /%NZAUNIT %D1%A HAS BEEN DROPPED%ZN/ 
004543 045 022516 0405 AUDRPM faaeee id aes UNITS DROPPEDZNZN/ 


3008 004576 EVEN 


c. 


SSSseeses 
ONAUSWNO 


ototo} 


sesewsay 
SSRSUSSS 


Fd 
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-SBTTL GLOBAL ERROR REPORT SECTION 


++ 


; THE GLOBAL ERROR REPORT SECTION SS bat THE PRINTB AND PRINTX CALLS 
; THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
; _THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 


BGNMSG 


040445 047125 052111 DTAERI: ; 


004746 


054130 
051120 
1501 


005604 
005604 


L10002: 


STAERM: : 


STAER1: . 
EVEN 
STAER7: 


STAERG : 


STAERO: . 
STAER6: . 


110003: 


ENDMSG 


DTAERM 


AMDTAER1 ,DEVTBL(R5) ,<B, TIME1>,<B, TIME2>,R2,RECCNT (RS) 
MSG 


BEX 
— %D1%A_ WAS:%B8%A 9 S/B:%B8%A_ BYTE:%D4%A_ RECORD: %D52N"' 


STAERM 

MSTAER1 ,DEVTBL (R5) ,PASCNT (R5) ,RECCNT(R5) 

M#STAER7 

ASTAER2 
#STAERS,CMDPKT ,@TSDB(R5) ,MSGPKT+MS .RFC,@TSSR(R5) ,CTCC 


set aEnd ~CMDPKT+2, CMDPKT+4, CMDPKT+6 
ne OPES I AOR FOR RE OR EAE AES ORES RE 


BEX 
/%AXXX CMD FAILED - UNIT %D1%S3%APASS : 3D5%S3%ARECORD : XD52N/ 
/ZAPREVIOUS CMD WAS XXX _ %N/ 
/ZACMDPK T%S22AT SBAZS4 ZARF CZSSZATSSR&S3%ATCCAN/ 
1%06%S2%06%S2%06%S2%06%S22D 1 ZN/ 
/%062N/ 
J scary 


/%062N 
THAXS1 ORS4HAXST1ZS4%AXST24SGRAXST3EN/ 
LIOSRS CRORES SBOE CRISSY 
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BGNMSG NURTYM 


EXIT MSG 


005606 
005606 NURTYM: : 
005606 


.NLIST BEX 
005612 040645 042522 047503 NURTY1: “ASCIZ /HARE COVERED FROM ABOVE ERROR ON RETRY #%D2%A. %N/ 
EVEN 


005672 ENDMSG 
005672 L 10004: 
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L SUBROUTINES SECTION 
GLOBAL SUBROUTINES SECTION 


% THE GLOBAL SUBROUTINES SECTION CONTAINS THE -SUBROUT INES 
; THAT ARE USED IN MORE THAN ONE TEST. 


MODULES TO HANDLE TSO4 INTERRUPTS. 


BGNSRV TS4INO 


TS4INO:: 


L10005: 


SETPRI INTPRI 
LET a? INTFLG + #1 
ENDSRV 


BGNSRV TS4IN1 


TSGIN1:: 


L10006: 


SETPRI_INTPRI 
LET INTFLG+2 := INTFLG+2 + #1 
ENDSRY 


BGNSRV TS4IN2 


TS4IN2:: 


L10007: 


SETPRI_INTPRI 
eae oe := INTFLG+4 + #1 


BGNSRV TS4IN3 


TS4INS:: 


L 10010: 


SETPRI_INTPRI 
LET INTFLG+6 := INTFLGt6 + 41 
ENDSRV 


sDEVICE 0. 


:SET INTERRUPT PRIORITY 
SET INTERRUPT 


sDEVICE 1. 


SET INTERRUPT 
;SET INTERRUPT 


:DEVICE 2. 


SET INTERRUPT PRI 
;SET INTERRUPT 


sDEVICE 3. 


;SET INTERRUPT 
SET INTERRUPT 


OCCURRED FLAG. 


PRIORITY 
OCCURRED FLAG. 


ORITY. 
OCCURRED FLAG. 


PRIORITY. 
OCCURRED FLAG. 
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SUBROUTINE TO STORE A_ SET CHARACTERISTIC COMMAND AS 
eur: ENTRY IN THE SEQUENCE TABLE. 


OUTPUTS: 
REGISTERS: 
CALLS: 


:: LET R1 := #CMDSEQ : INIT COMMAND SEQUENCE TABLE POINTER. 
012721 140004 MOV ASCH, (R1) + :THIS CODE SETS UP A SET CHARACTERISTIC 
000040 A#DFTSCH, (R1)+ [COMMAND AS THE FIRST COMMAND IN THE 
000001 #1,(R1)+ SEQUENCE TABLE. 
(R1)+ SKIP PATTERN LOCATION. 


WWW 


a ed ed td = = a ot = = = 2 Ls 8 8 


SUBROUT INE TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 
OUTPUTS: 

REGISTERS: 

CALLS: 


:: LET (R1)+ := :CMD = REWIND. 
LET (R1)+ := #1 SBRF . 
LET (R1)+ : :# OF OPERATIONS. 
005721 TST (R1)+ [SKIP PATTERN. 
000207 RTS PC RETURN 


VS SOBVRARAN=SSRGKARAVLS 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
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Meaty | heed TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 
INPUTS: 


ge 
Mmrovrenroere 28 
23 


OLSVO NOU EW > 
v 
— 


R2 = TERMINATION INDICATOR (O=END OF TABLE,1=E0T) 
CMDAC ,SETUP ,EXECUTE , GOWAIT , CKHAE ,NEXTU,F IRSTU, VF YDAT. 


: LET R1 := #CMDSEQ : INIT SEQUENCE TABLE POINTER. 
ae (R1) NE_#END DO WHILE THERE ARE CMDS IN THE SEQUENCE TABLE. 
004737 006450 PC,SETUP :GO SETUP THE COMMAND BLOCK. 
WHILE THERE ARE RECORDS REMAINING: 
004737 006360 MDAC STORE CMD ASCII IN ERROR MESSAGE. 
IFB yo :1F IN we hk aite 
IF Ae Fe WRITE THEN: 
IFB VEYFLG - Limi :1F DATA_IS TO BE VERIFIED THEN: 
LET BRFCNT  RANS CLR.BY #177740 ;ALLOW BYTE COUNT OF 16-31. 
;ELSE IF DATA IS NOT TO BE VERIFIED: 


OUTPUTS: 
REGISTERS: 
CALLS: 


o 
WYAAAAAAA 


— 


RANS + RANB 
abet BRF CNT := RANS CLR.BY LENMSK ;SET UP RANDOM LENGTH 


IF BRFCNT LT #*D16 THEN ;DC NOT ALLOW BYTE COUNT OF LESS THAN 16. 
LET BRFCNT := #20 CHANGE 0 TO 16 BYTES. 


ENDIF 
cabir CMDPKT+CP.CNT := BRFCNT ;MOVE BRF TO CMD PACKET. 
ENDIF 
012300 JSR PC, FIRSTU :SET UP FOR FIRST UNIT. 
IF DEVTBL (R5) EQ #END THEN ;IF ALL DEVICES HAVE BEEN DROPPED: 
DOCLN :DO CLEAN CODE + TERMINATE PASS. 


ENDIF 
WHILE DEVTBL(R5) v7 MEND DO ;WHILE THERE ARE MORE DEVICES: 
007316 JSR PC ,EXCUTE :GO EXECUTE THE COMMAND. 
012326 ae. PC ,NEXTU :FIND NEXT UNIT IN TEST CYCLE. 
IFB RPTFLG NE #0 THEN :1F REPORT HAS BEEN REQUESTED THEN: 
LET RPTFLG :B= #0 [CLR THE FLAG, 
DORPT ;PRINT THE PERFORMANCE REPORT. 


ENDIF 
004737 012300 JSR PC,FIRSTU ;SET UP_FOR FIRST UNIT 
WHILE BEVTBL (RS) NE #END DO :WHILE THERE ARE MORE DEVICES: 
004737 007600 JSR PC ,GOWAIT :GO WAIT FOR wate + PES FOR ERRORS. 
IF #X0.EOT SETIN MSGPKT+MS.XSO THEN z1F AT EOT 
eis EOTFLG :B= #1 SET EOT FLAG. 


004737 012326 a PC ,NEXTU :FIND NEXT UNIT IN TEST CYCLE. 
DD 
004737 012672 JSR PC,CKHAE 7CHECK HALT AFTER EACH CMD FLAG. 
IFB EOTFLG NE #0 THEN 7 1F EOT HAS BEEN REACHED THEN: 
ier EOTFLG  s #0 :CLR EOT FLAG, 
R2 : SET EOT INDICATORS 
009412 BR FXARTN RETURN 


NCNT := NCNT = #1 UPDATE RECORD COUNT. 
enbés PEMDWD := CMDWRD SAVE PREVIOUS COMMAND WORD. 


1 
3 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 





ge 
Ze 


BIA AL SAB IIBA LALA AAL AA 
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3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 


ee ed ed od 


Rett eh tuthth ttle 
ODWNAWESW Oo 
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006346 004737 011540 


000207 
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JSR PC, VFYDAT 7IF LAST CMD WAS A WRITE VERIFY, \ ae GO 
[VERIFY THE LAST N RECORDS OF DATA 


ENDDO 
LET R2 := #0 SET NORMAL RETURN INDICATOR. 


vite + ™, 15:33 PAGE 75 


: RTS PC ;RETURN. 


THIS + eae STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 
COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMDWRD 
INPUTS: CURRENT CMD AND LOCATION DCMWD CONTAINS PREVIOUS CMD. 


OUTPUTS 
REGISTERS: R3, R4. 
CALLS: GCMDA 


:: LET R4 := CMDWRD 7R4_= CMD BINARY. 
JSR PC ; 


GCMDA 
MOV (R3)+,STAER1#2 
MOVB  (R3),STAER1+4 ; INTO MSG. 
LET R4 := PCMDWD = PREVIOUS CMD BINARY. 
JSR PC,.GCMDA GET CMD ASCII. 
LET STAER7+24 := (R3)+ :MOVE CMD ASCII 


LET STAER7+26 :B= (R3) : 
RTS PC TRETURN. GO EXECUTE NEXT FUNCTION. 


SUBROUTINE TO F HE ASCII EQUIVILENT OF THE COMMAND IN R4. 
ADDRESS OF ASCI WORD IS RETURNED IN R3. 

INPUTS: | PRESENT COMMAND WORD. 

OUTPUTS: ADDRESS OF PRESENT COMMAND ASCII. 
tt 


:: LET R3 := #0 INIT CMD TBL POINTER. 


WHILE CMDTBL(R3) NE R4 DO [UNTIL CURRENT CMD IS FOUND: 
LET R3 := R3 + #2 SEARCH CMD TABLE. 


ENDDO 
LET R3 := R3 SHIFT +1 + #CMDASC ;POINT TO ASCII FOR THAT COMMAND. 
RTS PC RETURN. 
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THIS SUBROUTINE LOADS THE TSO4 COMMAND PACKET FROM ONE 
Pourse THE SEQUENCE TABLE. 


OUTPUTS: 

REGISTERS: R2, R3. 
CALLS: GENPAT. 
: LET CMDLG := #0 :CLR CMD LOGGING CODE(DISABLES LOGGING) 
MOV (R1)+, CMDPKT ;LOAD THE COMMAND D. 


(R1) ,CMDPKT+CP. CNT LOAD THE Fen cena cecetee COUNT. 
iR1) BRE is ‘SAVE BRF FOR THIS COMMAND. 


2R GET CMD. 
177740 A#NCMD.C ,R2 [CLR _ALL BUT CMD BITS. 
R2,R sSAVE_IT TWICE. 
000010 ACMD.C3,R3 — va 
002226 y?- -CMDPKT+2 ;MOVE BPCR IN 2ND PKT WORD FOR POSITION CMD. 


BR 
IF CMDPKT £Q pig THEN :IF CMD IS A WRITE TAPE MARK THEN: 
MDLG := #2 :WT™M LOGGING CODE IS 2. 


oo0°o 
ad ath end od 


ook 


BNE 
002226 DATARD , CMDPKT+CP.ADL 
#MOD.CO SETIN CMDPKT THEN 
LET CMDLG := #4 
LSE 
LET CMDLG := #6 
NDIF 
3$ 
R2,R3 
ae .te ae 
CMDPKT+CP.ADL := #SCHBK 


002232 #SCHCNT , “Ay silat CNT 
— + (R 


CHARACTERISTICS CMD? 
NOT. 


T UP ADR LO A SET CHAR. 
T BUFFER EXTENT 
a ana tema cta CODE IN SCH BLOCK. 


T 
a Si (DIA) CMD? 


=—NO 
| 
oOo — 
uesRes>2 
bet et Me 4 
TNH 


R2,R3 
CPB.09 00.00 NS 


000020 002232 ADIACNT ,CMDPKT+CP.CNT BUFFER EXTENT. 
002750 002226 MO #DIABLK,CMDPKT+CP.ADL ADR LOW. 
: (R1)+ :POINT TO N (NUMBER OF TIMES TC FXECUTE THIS INS 


002754 V * NEN : SAV EN N. 
003010 y ids, PATERN :SAVE PATTERN CODE FOR CURRENT CMD. 
000005 ; ACAD.CO!CHD.C2,R3 ZA a he 


F NOT. 
002750 002226 DATAWT, + ala Ets “LOAD WRITE BUFFER LO ORDER. 
007030 JS PC.GENPAT >GO GENERATE THE WRITE PATTERN. 
MDLG := #2 [WRITE LOGGING CODE 
-C_SETIN vies THEN 71F DATA a oS alate IS REQUIRED: 
T VFYFiG :B= :SET VERIFY FLAG. 
042737 000100 002224 MVFY.C, CMDPKT CLEAR VERIFY BIT(NOT USED BY HARDWARE). 


g> 
S 


ee Se Be Se Be Be Be Be Be Be Be Be Be 


geggse egceesce 


W=Monr =» 1 NRuIor 
NNO N 
WW 
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3276 006754 ELSE 
3277 006756 ’ LET VFYFLG :B= #0 
3278 006762 ENDIF 
3279 006762 LET PCMDWD := CMDWRD 
3280 006770 LET CMDWRD := 
3281 006776 IFB SWBFLG NE 
3282 007 LET CMD 
3283 007012 ENDIF 
3284 007012 042737 004000 002224 BIC #BRF .C, CMDPKT 
3285 0070 LET CMDSAV := CMDPKT 
3286 007026 000207 RTS PC 


71F DATA VERIFICATION IS NOT REQUIRED: 


CLR VERIFY FLAG. 


SAVE PREVIOUS CMD WORD. 
SAVE PRESENT CMD WORD. 


MD 
= THEN IF 
= CMDPKT SET.BY #SWB.C 


2 SAV E 1 
;RET 


SWAP BYTES IS ENABLED: 


SET SWAP BIT IN COMMAND. 
:CLR a Bat (INTERNAL ONLY 


T WORD 


OF COMMAND PACKET. 


SEQ 0074 
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THIS SUBROUTINE SETS UP _AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 
wae PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 


OUTPUTS: 
REGISTERS: R2, R3, R4. 
CALLS: PATRO = PATR7 


013703 003010 :: MOV PATERN,R3 

L SET UP PATTERN ROUTINE POINTER. 
013704 002760 MOV BR _— BYTE COUNT. 
005204 C R4 


:= R4 CLR,BY #1 
013702 002750 MO DATAWT ,R2 SAVE DATA WRITE BUFFER ADDRESS. 
004773 007062 PC,@PATTBL (R3) 360 GENERATE THE APPROPRIATE PATTERN. 
PC RETURN TO SETUP SUBROUTINE. 


;TS04 WRITE PATTERN LOOKUP TABLE. USED TO JSR TO THE 
CORRECT DATA PATTERN GENERATING ROUTINE. 


PATTBL: mee | 


; INCREMENTING PATTERN. 0 - 377. 


:: LET R3 := 4400 
LET R4 := R4 = #2 :DECREMENT WORD COUNT. 


BMI BR IF DONE. 

LET (R2)+ := R3 STORE DATA WORD. 

LET R35 := R3 + #1002 ; 
IF R3 EQ #1000 THEN :IF PATTERN HAS WRAPPED AROUND THEN: 
nis R3 := #400 INIT THE PATTERN AGAIN. 

000764 BR 1$ :DO_IT AGAIN. 

000207 ; RTS PC ; RETURN. 


ZALL ONE'S PATTERN. 


012703 177777 :: MOV #~1,R3 sALL_ONES PATTERN;. 
LET R4 := R4 = #2 :DECREMENT BYTE COUNT. 
BM! 1$ ; DONE ? 


100402 -BR IF YES 
010322 MOV R3,(R2)+ :IF NOT LOAD NEXT BYTE WITH PATTERN. 
000773 BR ZROPAT [DO IT AGAIN. 


009207 | : RTS PC sRETURN. 


WWWAWWAAAAWAS 
—OVONAUSWN-O 
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3 
3 
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005003 
004737 
000207 


012703 


012703 
004737 
000207 


012703 
004737 
000207 


007146 


177376 
007176 


125125 
007146 


177400 


002776 
002774 
002776 
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002774 
002776 


PATR2:: 


PATR3:: MOV 
WLKZRO: 
BMI 


: MOV #125125 ,R3 


sALL ZEROES PATTERN. 
LR R3 CLR PATTERN REGISTER. 
jx + estates :GO_GENERATE IT. 


ONE BIT WALKING FROM R TOL IN A FIELD OF ZEROES. 


#401 ,R3 : INIT PATTERN tor 
:= R4 = #2 :DECREMEN NT WORD C 


IL  OATAL 

2 SHIFT PATTERN. 
R3 D CARRY ~_— INTO PATTERN. 
o ‘D0 IT AGAIN 


3 URN. 


1$ 
R3,(R2)+ 
R3 


:ZERO BIT WALKING FROM R TO L IN A FIELD OF 1°S. 


#177376 ,R3 ; INIT PATTERN _— 
PC,WLKZRO :G0 GENERATE ;IT 
PC ;RETURN. 


sALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
; COMPLEMENTED. 


7 INIT PATTERN REGISTER. 
JSR PC, ZROPAT :GO GENERATE IT. 

RTS PC RETURN. 

sALTERNATING BYTES OF 000 AND 377. 


#177400 ,R3 INIT PATTERN REGISTER. 


: MOV 
LET R4 := R4 = #2 :DECR EMENT WORD COUNT. 
BM! ONE . 


2$ :BR IF D 
R3,(R2)+ LOAD DATA. 
1$ :D0_IT AGAIN. 
PC ;RETURN. 


PATTERN GENERATOR 

= R4 = #2 ;DECREMENT WORD COUNT 

GIT ; IF DONE. : 
;GET NEW #. 
sSAVE #. 

; CONTINUE. 

ZRETURN 


NO PATTERN GENERATION. 


:: RTS PC ;RETURN, 


SEQ 0076 
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THIS SUBROUTINE INITIATES TSO4 COMMAND EXECUTION 
iw, FOR TSO4 RESPONSE. 


OUTPUTS: 
REGISTERS: fF R3, R4. 
CALLS: DROPU, MOVMSG, FIRSTU, NEXTU. 


EXCUTE: ‘ber at TIME] := #1 z INIT TIMEOUT COUNTER. 
= TIME] - #1 ZUPDATE, TIMEQUT COUNTER. 
010020 C .MOVMSG ;MOVE CURRENT PACKET MSG. 
T R2 := #2 RROR NUMBER. 


E : “MESSAGE ADDRESS. 
012350 DROP THE UNIT. 
’ ; RETURN. 


UNTIL #TS.SSR SETIN @TSSR(R5) ;WAIT UNTIL DEVICE IS READY. 
IF CMDWRD EQ #SCH THEN IF WE ARE DOING A SET CHAR CMD THEN: 
LET RSSAV! = RS SAVE CURRENT ‘a POINTER. 
012300 JSR _ PC,FIR STU ;FIND FIRST UNIT 
WHILE DEVTAL (RS) NE #END DO 
007764 JSR PC,WSSR WAIT FOR UNIT READY OR TIME OUT, 
012326 shia PC ,NEXTU FIND NEXT UNIT. 


ENDD 
LET R5 := RSSAVE RESTORE CURRENT DEVICE POINTER. 
it SCHBK := MSGPKA(R5) :SET UP ADR OF MSG PKT IN SCH BLOCK. 


E 
LET R3 := MSGPKA(RS) sADR OF THIS UNIT*S MSG PACKET. 
LET R2 := #0 CLR COUNTER. 
WHILE R2_NE #MSGCNT DO WHILE THERE ARE MORE LOCATIONS: 
LET (R3)+ := #1 : INIT_THE MSG PACKET WITH ALL 1°S 
nate R2 := R2 : #2 [UPDATE COUNTER. 
105737 002142 TSTB DINT sa DISABLED. 


001020 
sa at aay Med #1 THEN 71F MORE THAN ONE INTERRUPT HAS OCCURED: 


zERROR 
LET R4 := #TOOMM ;MESSAGE ADDRESS. 
004737 012350 JSR PC,DROPU DROP THE UNIT 
000424 . o. EXCRTN RETURN ~ UNIT HAS BEEN DROPPED. 


NDI 
LET INTFLG(RS) := 4 :CLR INTERRUPT FLAG FOR THIS DEV. 
052737 000200 002224 BIS #1E.C,CMDPK iSET -” ENABLE BIT. 
012775 002224 002366 1$: MOV #CMDPKT , aTSDB(RS) [LOAD TSDB WITH CMDPKT ADDRESS 
THIS INITIATES COMMAND EXECUTION. 
IF #T5.SSR SETIN @TSSR(R5) THEN ;IF READY DID NOT DROP THEN: 
004737 010020 ti; mF as s:MOVE CURRENT MESSAGE PACKET TO COMMON. 


f= :ERROR R. 
L : ;MESSAGE ADDRESS. 
004737 012350 , C .DRUPU DROP THE UNIT 


ENDI 
000207 EXCRIN: RTS ;RETURN. 


ad aad aad ad a a ant ad cee ee 


4 
54 
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34 
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4 
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THIS SUBROUTINE WAITS FOR THE TSO4 INERRUPT OR DONE BIT TO SET AND ALLOWS THE 
OPERATOR TO TRANSFER CONROL TO THE SUPERVISOR 

UPON wret mee OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS, 
he ERRORS AND PERFORM ERROR RECOVERY IF NESSASARY. 


gp 
2 


SO 


Wr-O0Oon 


Be Se Be Be Be Be Be Be 


OUTPUTS: 

REGISTERS: R2, R3. 

CALLS: DROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR. 
:: LET TIME] := #1 ; INIT TIME OUT COUNTER. 


REPEAT [REPEAT UNTIL INTERRUPT OCCURES: 
BREAK :GO TO THE SUPER TO ALLOW TTY INPUT. 
IF CMDWRD EQ #RWD THEN REWIND THEN: 


7 1F COMMAND WAS 
yt aa 100. [WAIT AN EXTRA 10 MSEC EACH LOOP. 


END 
IFB DINT EQ #0 THEN 7 IF _INTERRUPTS ARE ENABLED. 
LET R2 := INTFLG(R5) SFETCH INTERRUPT OCCURRED FLAG. 
44 a ge MODE : 


:= COMP # UP A MASK FOR THE DONE BIT. 
:= SO eSR (RSS str. BY rene T FETCH DONE BIT. 


LET TIME1 = TIME] = #1 UPDATE TIMEOUT COUNTER. 

IF TIME1 EQ #0. THEN : IF TIME OUT HAS OCCURRED: 

JSR PC -MOVASG MOVE CURRENT MSG PACKET TO COMMON AREA. 
R2 ae RROR NUMBER. 


LET : 
T R4 := #NOINTM MESSAGE ADDRESS. 


EREKE 


Perera 


LE 
JSR PC ,DROPU :DROP THE UNIT. 
aie GOWRTN ; RETURN. 


ENDIF 
UNTIL R2 NE #0 REPEAT UNTIL INTERRUPT OR READY OCCURES. 
JSR PC .MOVMSG E_ CURRENT MSG. PACKET TO COMMON AREA. 
JSR PC ,,RECUD : ORD COUNT 
JSR PC; CHKERR 
JSR PC,LO0G :LOG BYTES AND ERRORS. 
LET R3 := MENDERF 


JSR PC,CLRERR :CLEAR ALL ERROR FLAGS 
RTS PC :RETURN IF DONE. 





35 
5 
35 
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3 
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CLRERR:: 


SUBROUTINES SECTION 


SUBROUTINE TO CLEAR FLAGS. 
INPUTS: R3 = LWA TO BE CLEARED + 2. 


OUTPUTS: 

REGISTERS: R2 
CALLS: 

LET R2 := ABGNFLG 
REPEAT 


EA 

LET (R2)+ := #0 
UNTIL R2 EQ R3 
RTS PC 


5 i TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 


OUTPUTS: 
a_i 


LET ive? := A-1 : INIT TIMEOUT COUNTER. 
REPEAT ;REPEAT a DEV READY OR TIMEOUT: 
BREAK BREAK TO THE SUPERVISOR. 
LET TIME1 := TIME1 - #1 UPDATE TIMEOUT COUNTER. 
UNTIL #TS.SSR SETIN @TSSR(R5) OR TIME? EQ #0 
REPEAT UNTIL DEV READY OR TIMEOUT. 
RTS PC “RETURN. 


SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
mente THE CURRENT TERMINATION CLASS CODE. 


OUTPUTS: 
REGISTERS: R2, R3. 
CALLS: 


:: LET R3 Lied MSGPKA(R5) zADR OF THIS DEVICE'S MSG. 
LET R2 := #0 R COUNTER. 


sCt 
WHILE Re a... jar DO WHILE THERE ARE MORE LOCATIONS: 
ET (R2) := (R3)+ ;MOVE MSG TO COMMON AREA. 
yt #2 [UPDATE COUNTER. 


= @TSSR(R5) gt BY #TSC.TCC gt dhe THE TERMINATION CLASS CODE. 
co R2 SHIFT =1 ;SAVE THE TCC. 
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SUBROUTINE TO UPDATE THE RECORD COUNT. 
NPUTS: 


OUTPUTS: 
REGISTERS: : 
CALLS: 


:: IFB RECLOG EQ #0 THE ; HAS NOT BEEN LOGGED: 
IF #B1TO NOTSETIN Crec THEN THEN: 
LET RECLOG :B= RECLOG + #1 D LOGGED, 
HEN S A REWIND CMD: 


IF CMDWRD EQ #RWD T 
.S' RECCNT(RS) := #0 ; CORD COUNT, 


7 IF BRF USED, UPDATE RECORD COUNT. 
F A FORWARD CMD: 
i #MOD . CON 


z1F PREV CMD WAS A FWD ALSO: 
end ie RECCNT(R5) := RECCNT(RS) + #1 ; INCREMENT RECORD COUNT. 


ELSE ;1F REVERSE CMD: 
IF #MOD.CO SETIN PCMDWD THEN ;IF PREVIOUS CMD WAS A REV ALSO: 
IF RECCNT(R5) NE #0 THEN ; INSURE A POSITIVE COUNT. 
yh RECCNT(R5S) := RECCNT(R5) = #1 ;DECREMENT RECORD COUNT. 


= = 
— 
RXFLLSSSESRVAKSS 


lelelelelelelele) 


=adad ad 
Oo Oo 
MONMIMPOPNNY 

aod aa ach eh an ch ct 


: 
0102 000207 





d 7 
1 30A(1052) ton t ™ i? 33 PAGE 84 
28-DEC-78 14:34 GLOBAL SUBROUTINES SECTION 


UBROUT INE . ref INTERRUPT THIS 
a I Ts04 STATUS. 
THE TCC HANDLING SUBROUTINE IS ENTERED. 
FORA Comat REQUIRING A BPCR, 


BeBe Se Se Se Se Se Be Be 


OUTPUTS: 

REGISTERS: R2, 

CALLS: Ree otticz. 

010212 :: IF #TS.SC SETIN tBISSR(RS) THEN :IF SPECIAL COND STATUS IS SET THEN: 
IF CTCC NE #2 THEN :IF TCC IS NOT 2 T 


IFB ERRREC ° #0_THEN “";1F NOT IN ERROR RECOVERY: 
005265 002710 emit CCNT(R5S) : INC SC COUNTER. 


ENDIF 
LET R2 := CICC SHIFT 1 CURRENT TCC X 2. 
004772 010344 eas PC-ATCCRACRE) =G0 TO THE TCC HANDLING SUBROUTINE. 


if WBRF.C SETIN CMDWRD THEN ;IF BRF IS USED PP yas CMD THEN: 
IF MSGPKT+MS.RFC NE 4 THEN ;IF THERE IS AN RFC THEN 
FB RANDOM EQ #0 THE at wy RANDOM MODE : 
IFB_IRE EQ #0 THEN 7 IF RFC ERROR REPORTS ARE ALLOWED: 
LET HRDCNT(R5) := HRDCNT(R5S) + #1 ;UPDATE HARD ERROR COUNT 
a #13,RFCERM,STAERM REPORT RFC ERROR 


ENDIF 
IFB RWERR NE #0 THEN 7 1F A READ/WRITE ERROR HAS OCCURRED THEN: 
bic CMDPKT := CMDSAV RESTORE CMD PACKET AFTER ERROR RECOV. 


000 RTS PC RETURN. 


ADDRESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 
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SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 
oat Mg ERROR. 


. 
v 
3m 


OUTPUTS: 
REGISTERS: 


010364 :: LET HRDCNT(RS) := HRDCNT(R5) + #1  ;UPDATE HARD ERROR COUNT. 
010370 cre oe #5, SCERM, STAERM ;REPORT SPECIAL CONDITION ERROR. 
010400 000207 RTS P [RE TURN. 


SSeeeeees oe 


SESETES 
AUS WN =O 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1, ATTENTION CONDITION. 
THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
TOTS? GOING OFFLINE OR COMING ONLINE. 


Sem 
-OO0On 


OUTPUTS: 

REGISTERS: 

CALLS: 
010402 Cisse := #6 sERROR NUMBER. 
0104 : 


06 :ME SSAGE —_ 
010412 004737 012350 [DROP THE UNIT 
010416 000207 S PC ; RETURN. 


3622 
3623 
3624 
3625 
3626 
362 


N 
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8 : SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 

: A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 

#3 ; TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, EOT. 
3632 : OUTPUTS: 
3633 : REGISTERS: 
$30 3 CALLS: 
3636 010420 TCC2:: IF #XO.TMK!XO.RLS!XO.LET!XO.RLL SETIN MSGPKT+MS.XSO THEN 
3637 TF TAPE MARK RECORD LENGTH ERROR OR 
338 ICAL EOT THEN: 
339 010430 IF #X0. TMK !X0. LET NOTSETIN MSGPKTSAS. XSO THEN ;IF RECORD LENGTH ERROR: 
340 010440 IFB IRE NE #0 OR RANDOM NE #0 THEN ;:IF RFC ERROR REPORTS ARE 
3641 ; INHIBITED OR IN RANDOM MODE T 
342 016454 000416 BR  TC2RTN ;RETURN = TCC2 CAUSED BY EOT. 
343 010456 ENDIF 
3644 010456 ENDIF 
3645 010456 IFB ERRREC NE #0 THEN ZIF WE ARE IN ERROR RECOVERY THEN: 
3646 010464 LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE FLAG FOR LOG. 
3647 010470 EL SE ELSE - IF NOT IN ERROR RECOVERY: 
3048 910472 LET SCCNT(RS) := SCCNT(RS) + #1 INCREMENT THE SPEC COND COUNTER. 
3650 010476 LET HRDCNT(R5) := HRDCNT(RS) + #1 — ;UPDATE HARD ERROR COUNT. 
3651 010502 ERRHRD #7,TSAM, STAERM [REPORT TAPE STATUS ALERT. 
352 010512 ENDIF 
3653 010512 000207 TC2RTN: RTS PC RETURN. 
3655 
3656 
3628 
3659 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 3, FUNCTION REJECT. 
3660 : THE SPECIFIED FUNCTION WAS NOT INITIATED. | ‘Bifs OF INTEREST ARE 
3661 : OF L, VK, BOT, ILC, WLE, ILA, AND NBA 
3662 : INPUTS 
3663 : OUTPUTS: 
3664 : REGISTERS: R2,R4 
3665 : CALLS: DROPU 
bee 010514 TCC3:: LET R2 := #8. ZERROR NUMBER. 
3668 010520 LET RG := #FUNRM [MESSAGE ADDRESS. 
3669 010524 004737 012350 JSR PC,DROPU ‘DROP THE UNIT. 
3670 010530 000207 RTs PC ‘RETURN. 
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004737 911122 


004737 007316 
000137 007600 


010654 
010654 000207 
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Bete Se Se Be Be Se Be 


SUBROUTINES SECTION 

peg A TO HANDLE TERMINATION yo He 4, RECOVERABLE ERROR. 
TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 

THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. 

INPUTS: 

OUTPUTS: 
REGISTERS: R2,R 
CALLS: Rie. “EXCUTE, GOWAIT, DROPU 

JSR PC,RTLE as FOR RETRY LIMIT EXCEEDED. 
] C HEN: 


READ CMD T 
‘Ro-REND RETRY COUNT LIMIT / 2 


RETRY COUNT IS MORE THAN HALF LIMIT: 


IF 
MOPKT SET.BY #OPP.C ;SET OPPOSITE BIT FOR RETRY?. 


ENDIF 
IF RETRYC EQ #0 THEN :1F THIS IS THE ORIGINAL ERROR THEN: 
m aati #9 ,RERM, STAERM REPORT RECOVERABLE ERROR 


E 
LET RETRYC := RETRYC + #1 UPDATE RETRY COUNT. 
ET CMDPKT := CMDPKT SET.BY 4#MOD.C1 7 SET mone BIT IN CMD PACKET. 
IFB_IREC EQ #0 THEN IF ERROR RECOVERY ENABLED: 
aa ROR :B= ERRREC + #1 


; N ADRS FROM S 
JSR PC, oe XECUTE THE RETRY COMMAND. 
JMP GOWAIT WAIT FOR INTERRUPT + CHECK STATUS. 
ELSE ;ELSE IF ERROR RECOVERY IS NOT ENABLED: 
obit UNREC :B= UNREC + 47 UNRECOVERABLE ERROR FLAG. 


RTS PC RETURN 
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SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR. 
TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
Gat RE~ISSUE THE ORIGINAL COMMAND. 


OUTPUTS: 
REGISTERS: 
CALLS: 


R2,R4. 
RTLE, EXCUTE, GOWAIT, DROPU. 


004737 011122 :: JSR PC,RTLE CHECK FOR RETRY LIMIT EXCEEDED 
IF RETRYC EQ #0 THEN IF THIS IS THE ORIGINAL ERROR THEN: 
Baal #10,RERM,STAERM REPORT RECOVERABLE ERROR. 


EN 
LET RETRYC := RETRYC + #1 UPDATE RETRY COUNTER. 
IFB_IREC EQ #0 THEN :1F ERROR RECOVERY IS ENABLED: 
LET ERRREC :B= ERRREC + #1 :SET ERROR RECOVERY FLAG. 
POP R2,R2 2 RTN ADRS FROM STACK. 
004737 007316 JSR PC,EXCUTE °60 RE~ISSUE THE COMMAND. 
000137 007600 JMP GOWAIT ;GO WAIT FOR INTERRUPT + CHECK STATUS. 
ELSE ZELSE IF ERROR RECOVERY IS NOT ENABLED: 
edie UNREC :B= UNREC + 41 SET UNRECOVERABLE ERROR FLAG. 
010740 000207 RTS PC ZRETURN. 
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SUBROUTINE TO HANDLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR. 
N LOST. _THE ONLY I 


SS L 
THIS DIAGNOSTIC WILL REWIND AND RETRY THE 
COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 
ones FROM THE TEST SEQUENCE. 


OUTPUTS: 
REGISTERS: R2, 
CALLS: RTE” ~~" EXCUTE, GOWAIT, DROPU 
IF X3.DCK NOTSETIN MSGPKT+MS.XS3 THEN 


;1F THERE IS ry DENSITY CHECK a 
IF CMDLG NE #0 THEN :IF CMD IS A READ . WRITE THEN 
LET RWERR :B= RWERR + #1 SET RD/WR ERROR FLAG, 
LET UNREC :B= UNREC + #1 iSET UNRECOVERABLE- ERROR FLAG. 


[ERROR NUMBER. 
: MESSAGE ADDRESS. 
012350 REPORT ERROR + DROP UNIT. 
LSE sei SE- af THERE IS DENSITY CHECK 
011122 JSR _PC,RTLE CHECK FOR RETRY LIMIT EXCEEDED. 


IF RETRYC EQ #0 THEN :IF THIS IS_THE ORIGINAL ERROR THEN: 
= #11 ,URERM, STAERM REPORT DENSITY CHECK ERROR. 


ENDI 
LET RETRYC := AL + #1 UPDATE RETRY COUNT. 
IFB IRE EQ 40 THEN 7 IF ERROR RECOVERY IS ENABLED THEN: 
LET ERRREC :B= ERRREC + #1 ;SET ERROR RECOVERY FLAG, 
: LET @TSDB(R5) := #RWCPK ; ISSUE A REWIND COMMAND, 
007764 JSR PC,WSSR WAIT FOR SUBSYSTEM READY, 
POP R2,R2 POP 2 RTN ADR'S FROM STACK, 
007316 JSR PC,EXCUTE :REISSUE THE COMMAND, 
007600 JMP GOWAIT ;WAIT FOR INTERRUPT 
ELSE ;ELSE-IF ERR REC DISABLED: 
is UNREC :B= UNREC + #1 :SET UNRECOVERABLE ERROR FLAG. 


RETURN 
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NE_TO HANDLE TERMINATION CLASS CODE 7 FATAL SUBSYSTEM 
APABLE OF PROPERLY PERFORMING 


ADDITIONAL INFORMATION ON THE TYPE OF FATAL ERROR 
INPUTS: 


OUTPUTS: 
REGISTERS: R2, R4 
CALLS: 


LET R2 := #12. ERROR NUMBER. 

LET R& := #FATSM :ME SSAGE ye) ia 
004737 012350 JSR PC,DROPU [DROP THE UNIT 
000207 RTS PC ;RET 


SUBROUTINE TO CHECK FOR RETRY LIMIT ad a PRINTS ERROR MESSAGE 
IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R4. 

CALLS: DROPU 

IF Reg he EQ > _—e :1F CMD IS NOT A READ OR WRITE THEN: 


[ERROR NUMBER. 
LE : > MESSAGE 777) i 
004737 012350 ay OPU DROP THE UNIT 


POP 
000441 :AND RETURN. 
NDIF 


LET RWERR :B= RWERR + #1 2 SET = Ten al oore FLAG. 
IF CMDLG EQ #2 THEN :1F CMD IS A WRT OR WIM: 
IF RETRYC EQ MWRECL THEN :1F RETRY COUNT —, REACHED LIMIT: 
— C of EC + #1 ;SET UNRECOVERABLE FLAG 
[ERROR NUMBER 
:MESSAGE ADDRESS. 
004737 012350 JSR PS: -DROPU DROP THE UNIT 


000415 A I ate AND RETURN. 
ELSE ELSE _- CMD IS A READ: 
IF RETRYC EQ #RRECL THEN :1F RETRY COUNT HAS REACHED LIMIT: 
LET UNREC :B= UNREC + 41 7SET UNRECOVERABLE FLAG 
sea ll #14,RLEXM,STAERM ;REPORT RECOVERABLE ERROR. 


POP R 
BR RTLRTN AND RETURN. 
ENDIF 


4 3 SM 4 os SS 1 
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ENDIF 
RTLRTN: RTS PC ;RETURN 
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SUBROUTINE TO LOG BYTES READ/WRITTEN. 
te aia READ/WRITE ERROR COUNTERS. 


ge 
ge 
33 


Be 


eee 


OUTPUTS: 
REGISTERS: R2, R3, R4. 
CALLS: 


RLOG EQ #0 THEN :1F DATA AND ERRORS HAVE NOT BEEN LOGGED THEN: 
RLOG :B= ERLOG + #1 ‘SET LOG DONE FLAG. 
4: LG [GET CURRENT CMD LOGGING CODE. 
TIF THERE IS A CODE THEN 
#2 : ADJU UST, THE ASQne FOR TABLE INDEX. 
INC (RG) : #CNTBGN ;R2 = ADR OF BYTE COUNT LSW. 


FCN ;ADD ine TOL LSW. 
Los 'BRFCNT THEN IF THE RFC IS LOWER OR THE SAME AS BRF THEN 
2) = MSGPKT+MS.RFC° ;SUBTRACT RFC FROM EXPECTED BAF. 


7R3 = ADR OF 2ND WORD. 
WHILE (R2) ér. 


LET (R2) := (R2) - "1000. UPDATE BYTE COUNT 
hie (R3) := (R3) + #1 32ND WORD. 


ENDDO 
LET R2 := R3 + #1 ;R2 = ADR OF 3RD WORD. 


WHILE (R3) . 
(R3) "#1000. UPDATE BYTE COUNT 
#1 ;5RD WORD. 


3R3 = ADR OF 4TH WORD. 
UPDATE BYTE COUNT 
74TH, WORD. 


—OODONAWUSW 


IF 

LE 
LE 
IF 


eeewenes 


83 83 80 
Sue seeeens 
FESSEVAN 


Ww 


NVNASREVFSKSRRSSKLSS 


(R3) + #1 


ENDDO 
IFB RWERR Ne #0 THEN :1F R/W ERROR . UPDATE ERROR COUNT. 
= R5 + EINC(R4) + mRREC R2 = ADR OF COUNTER 
E #0 7 THEN S THe Fanon UNRE COVERABLE? 


#10 
(R2) + #1 
(R2) + #1 


LET (R2) 3 
re IREC Ea #0 THEN IF ERROR RECOVERY IS ENABLED: 
et NTB #NURTY1 ,RETRYC PRINT # OF RETRIES TO RECOVER. 


Mn 
Mr 


RTS PC 
pouss TO BYTE COUNTERS. 


100 zREAD 
poets TO READ/WRITE ERROR COUNTERS. 


20 TREAD REV. 
40 sREAD FWD. 
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IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN 
TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE, CHECK DATA, 
READ on CHECK DATA, THEN CONTINUE TO NEXT COMMAND. 


OUTPUTS: 
REGISTERS: 
CALLS: VFEXC. 


IFB_VFYFLG NE #0 THEN iIF DATA IS TO BE VERIFIED: 
LET PCMDWD := C D :SAVE THE PREVIOUS COMMAND WORD 


[COMMAND IS READ REV. 
1 : [SET UP CMD LOGGING INDEX. 
004737 011624 [GO READ ALL THE RECORDS REV. 
T PCMDWD : WR ; SAVE is ee COMMAND WORD. 


; COMMAND WD. 
CMDLG := #6 >SET UP CMD LOGGING INDEX. 
004737 011624 J - PC, VFEXC [GO READ ALL RECORDS FWD. 


PC 
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oS TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 


OUTPUTS: 
REGISTERS: 
CALLS: 


R2 
CMDAC, EXCUTE, GOWAIT, CKDATA, CKHAE, NEXTU, FIRSTU. 


:: LET CMDPKT := Ae: CLR.BY 4BRF.C_ ;COMMAND PACKET = READ REV OR FWD. 
IFB_ SWBFLG a ae HEN IF BYTES ARE TO BE S$ 
CMDPKT := CMDPKT SET.BY #SWB.C ;SET SWAB BIT IN CMD PACKET. 


SAV := CMDPKT 2 SAVE COMMAND PACKET 1ST WORD. 
= NCNT1 ;SET NUMBER OF REC 
013737 002752 002226 MOV DATARD, CMDPKT+CP.ADL SAVE BUFFER START ADDRESS. 
WHILE NCNT NE #0 DO ;WHILE THERE ARE RECORDS REMAINING: 
004737 006360 4 PC ,CMDAC T CII_IN ERROR MSG. 


004737 012300 J PCF IRSTU 
IF DEVTBL(R5S) EQ #END THEN 
DOCLN 


RASLE 


D D THEN 
;DO CLEAN CODE AND TERMINATE PASS. 


ENDIF 
WHILE DEVTBL(R5) = MEND DO 8 ;WHILE THERE ARE DEVICES REMAINING: 
LET Re := DATARD + #8. ; INIT READ BUFFER POINTER. 
WHILE R2 NE DATARD DO [UNTIL 8 BYTES HAVE BEEN SET, 
ee -(R2) := #1 : INIT READ BUFFER. 


ENDDO 
007316 JSR PC,EXCUTE ‘7 EXECUTE THE COMMAND. 

IFB DROPED EQ #0 THEN UNIT HAS NOT with DROPPED THEN: 
007600 JSR PC ,GOWAIT ‘G0 WAIT FOR DONE BIT 


ENDIF 
IFB DROPED EQ #0 THEN :1F UNIT HAS NOT BEEN DROPPED THEN: 
012042 JSR PC,CKDATA :GO VERIFY DATA. 


ENDIF 
012672 JSR PC,CKHAE CHECK FOR HALT AFTER EACH CMD. 
012326 hae PC .NEXTU :GO FIND THE NEXT UNIT. 


ENDDO 
LET NCNT := NCNT - #1 UPDATE THE RECORD COUNT. 
neha PCMDWD := CMDWRD SAVE PREVIOUS COMMAND WORD 


RTS PC RETURN. 


PEPER EPSP EERE RR ESL 


AANA IVSTSsAaRS 
SAAARAKLO 
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3926 ; SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 
3927 : AND PRINT ERROR MESSAGE ON MISCOMPARE. 
3928 ; INPUTS: 
3929 ; OUTPUTS: 
3930 ; REGISTERS: R2, R3, R4. 
333) : CALLS: GCMDA 
3933 012042 CKDATA:: IF MSGPKT+MS.RFC LOS BRFCNT THEN ;1F RFC IS LOWER OR THE SAME AS BRF THEN: 
3934 012052 LET R3 := BRFCNT = MSGPKT*MS.RFC |; VERIFY LENGTH = EXP LEN ~ RFC. 
3935 012062 ELSE isi’ IS RFC IS NEGATIVE: 
3936 012064 LET R3 := BRFCNT ‘VERIFY LENGTH = EXP LEN. 
3937 012070 ENDIF 
3938 012070 IF R3 NE #0 THEN z1F THE LENGTH IS NOT ZERO THEN: 
3939 012074 LET CKDCNT := R3 - #1 :SAVE VERIFICATION LENGTH - 1. 
3940 012104 LET RG := CMDWRD [R4=CMD BINARY. 
3941 012110 004737 006422 JSR PC,GCMDA [GET CMD ASCII. 
3942 012114 LET WIVERM := (R3)+ :MOVE CMD ASCII. 
3943 012120 LET WIVERM+2 :B= (R3) : INTO MSG. 
3944 012124 105037 012276 CLRB CKDFF SINIT 1ST TIME THRU FLAG. 
3945 012130 005002 CLR R2 S INIT BYTE COUNTER 
3946 012132 LET R3 := DATAWT [GET WRITE BUFFER ADDRESS. 
3947 012136 LET R4 := DATARD [GET READ BUFFER ADDRESS. 
3948 012142 REPEAT [REPEAT UNTIL ALL DATA IS COMPARED: 
3949 012142 IF R2 EQ CKDCNT THEN :1F THIS IS THE LAST BYTE THEN: 
3950 012150 IFB SWBFLG NE #0 THEN IF BYTE SWAPPING IS ENABLED THEN 
3951 012156 IF #31700 NOTSETIN expen THEN zIF RECORD LENGTH IS ODD THEN: 
3952 012166 105723 TSTB (R3)+ LAST BYTE WILL BE IN 
3953 012170 105724 TSTB (R4)+ >THE UPPER BYTE. 
3954 012172 ENDIF 
3955 012172 END IF 
3956 012172 ENDIF 
3957 012172 121314 CMPB (R3),(R4) ZARE THEY EQUAL. 
3958 012174 001430 BEQ 3$ 
3959 012176 105737 012276 TSTB CKDFF 37 st TIME THRU? 
3960 012202 001007 BNE 2$ 
3961 O12 005265 002720 INC VFYCNT(RS) + INC THe VERIFY ERROR COUNTER. 
3962 012210 005265 002730 INC HRDCNT(RS) :INC THE HARD ERROR COUNT. 
3963 012214 LET CKDFF := #1 [CLR 1ST TIME THRU FLAG. 
3964 012222 111437 003000 2$: MOVB (R4),TIME1 SAVE WAS DATA FOR TYPOUT. 
3965 012226 042737 177400 003000 BIC #177400, TIMET aa :CLEAR GARBAGE. 
3966 012234 111337 003002 MOVB (R3),T mee [SAVE SHOULD BE DATA FOR TYPOUT. 
3967 012240 042737 177400 003002 BIC Wi3?460, 4: CLEAR GARBA 
3968 012246 ERRHRD #17, GTUERA. DTAERM. SREPORT WRITE/ VERIFY ERROR. 
3969 012256 105723 3$: TSTB (R3)+ _-2 ~ HUPDATE WRITE BUFFER ADDRESS. 
3970 012260 105724 « TSTB (R4)+ 7UPDATE READ BUFFER ADDRESS. 
3971 012262 105722 TSTB -(R2) + ‘UPDATE BYTE COUNTER. 
3972 012264 3 UNTIL R2 GT CKDCNT SEND OF DATA COMPARE REPEAT LOOP. 
3973 012272 ! ENDIF >. Soe 
337% 012272 000207 it RTS PC SOTHERWISE, RETURN. 
3976 012274 000000 CKDCNT: .WORD 0 :# OF BYTES TO BE VERIFIED - 
3977 012276 000 CKDFF: .BYTE 0 ‘FIRST TIME THRU DATA ERROR Gop FLAG. 


3978 012300 ety sam 
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st: Ht TO FIND THE FIRST DEVICE IN. THF TEST SEQUENCE. 


_ OUTPUTS: 
REGISTERS: 
CALLS: 


FIRSTU:: LET DROPED :B= #0 :CLR UNIT Te 
LET R5 := #0 :CLR DEVICE PO 
WHILE DEVTBL (RS) EQ WNINUSE DO ;WHILE DEVICES. ARE Ryo IN USE: 
néde ™ R5 := RS + #2 :POINT TO NEXT DEVICE. 


RTS PC RETURN WITH 1ST DEVICE IN R5. 


SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 
INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 


012326 :: LET DROPED :B= #0 :CLR UNIT DROPPED FLAG 
REPEAT REPEAT UNTIL THE NEXT DEVICE IS FOUND. 
LET RS := R5 + #2 UPDATE DEVICE TABLE POINTER. 
012336 UNTIL DEVTBL(R5) NE ‘#NINUSE 
012346 000207 RTS PC RETURN. 
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012350 


004737 010020 


004737 012610 
004737 011254 


012576 
012604 000207 
012606 000000 
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Sete Se Be Se Be Be Be 


DRO200: 


SUBROUTINES SECTION 
SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 


RARER ERAEAREEREAREREKKEEREREKEEAREEEEEREEEERERAREEEREREREREREE 
THIS SUBROUTINE DYNAMICALLY MODIFIES A SUPERVISOR CALL. tttnneeeeens 
RERRERERKEAEEEKEAEREKREARARERKREKEREEEEREEREEEREEREREEEERRERREEREREH 
NPUTS: R2=ERROR #, R4=BASIC MESSAGE ADDRESS. 

OUTPUTS: 

REGISTERS: R2, RG 
CALLS: MOVMSG, PRXST, LOG 

LET DRO100+2 := R2 STORE ERROR # IN ERROR CALL. 


RG j STORE 
= HRDCNT(RS) + “ MENT ERROR 
LET := DEVTBL (RS) # OF DEVICE TO BE DROPPED. 
: ERRDF R2.R4,STAERM PRINT THE ERROR MES 

LET R4 := MSGPKT+MS. xs3 SHIFT -8° GET UDIAG ERROR CODE FROM XSTAT3. 
LET a7SDB (RS) := #GSC z INITIATE A GET GET STAT US COMMAND. 


7GO TO. SUPER-WAIT 1 MSEC. 
JSR PC .MOVMSG ;MOVE MSG PACKET TO COMMON AREA. 
IFB R4& EQ #X3.RNY THEN IF WE HAVE A CAPSTAN RUNAWAY THEN: 
, NIP #16,RNYM,STAERM REPORT CAPSTAN RUNAWAY WITH TACH CNT. 
JSR PC,PR PRINT EXTENDED STATUS REGISTERS. 
IFB RECLOG NE #0 THEN - IF THE RECORD HAS BEEN LOGGED THEN: 
edie PC,LOG [LOG DATA BYTES + RD/WR ERRORS. 
DORPT PRINT PERFORMANCE REPORT 
IF PASCNT(R5) NE #0 THE 


N 
LET PASCNT(RS) := PASCNT(RS) = #1 


ENDIF 

LET RO := R5 SHIFT -1 — LOGICAL 1 he NUMBER 

DODU RO 3; DROP " UNIT 

BCOMPLETE DRO200 BR IF DROPPING OF UNITS IS COGLED. 

IFB_IREC EQ #0 THEN :1F RECOVERY IS ENABLED THEN 

LET @TSSR(R5) := #0 : ISSUE SUBSYSTEM INIT . 
LET STAFLG :B= STAFLG + #1 :SET START FLAG TO ENABLE REWIND, 
DOCLN CODE ABORT 


:DO CLEAN PASS. 
ELSE sELSE ~ RECOVERY IS DISABLED: 
Pie DRORTN RETURN AND CONTINUE TEST SEQUENCE. 


E 
PRINTF _#DROPDM,DROPN PRINT DROP DEVICE MESSAGE 
LET DROPED :B= #1 :SET UNIT DROPPED FLAG. 


DRORTN: RTS PC RETURN. 


DROPN : 


-WORD 0 :4 OF UNIT TO BE DROPPED 
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012610 
012630 
012670 


SUBROUTINES SECTION 
SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
INPUTS: 


OUTPUTS: 
REGISTERS: 
CALLS: 


: PRINTX #STAERO TYPE OUT THE X=ST REGS. 

at gl AHSTAER6 ,MSGPKT+MS KS0 -MSGPKT+MS .XS1,.MSGPKT +MS .XS2,.MSGPKT+MS .xS3 
SUBROUTINE TO HALT AFTER EACH COMMAND. 

INPUTS: 


OUTPUTS: 
REGISTERS: R3, R4 
CALLS: 


:: IFB HAE NE #0 THEN af HALT FLAG IS SET 


004737 006422 


21S MANUAL INTERVENTION ALLOWED? 
aes CKHRTN :BR IF NOT. 
LET R4 := CMDWRD OMMAND WORD. 
JSR “pe. .GCMDA :FETCH ADR OF CMD ASCII. 
LET HALTM : :MOVE CMD ASCII 
LET HALTM#2 : 3) : INTO MESSAGE. 
GMANIL HALTM, TIME1, 1,YES ;HALT = WAIT FOR AN OEPRATOR INPUT. 


10000$: 
E 


CKHRIN: 


012742 


RETURN 
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«TITLE MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 


012742 BGNMOD 


j++ 
: THE REPORT CODING SECTION CONTAINS THE 
: ;_‘ PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 


BGNRPT 
LSRPT:: 


LET RSSAVE := R5 : SAVE CURRENT DEVICE POINTER. 
012300 JSR PCF IRSTU FIND THE FIRST UNIT 
WHILE DEVTAL(R5) NE #END DO “WHILE THERE ARE MORE DEVICES: 
PRINTS #RPTIA, A. ee PASCNT(RS5) ,RECCNT (RS) 
#RPTIR, WRBC+30(R55 ,WRBC+20(R5) ,WRBC+10(R5) ,WRBC (RS) 
PT1C.RRBC+30(R5) .RRBC+20(R5) -RRBC+10(R5) .RRBC (RS) 
mmr *RFBC+30(R5) .RFBC+20(R5) .RFBC+10(R5) .RFBC (RS) 


#RPTIF ,WRREC(R5) ,RRREC (RS) ,RFREC(RS) 
ph ;WRUNR (R5) > RRUNR (RS) ; RFUNR (RS) 


PT1H 
S PRPTAL, SCCNT(R5) ae ne id gab 
PC ,NEXTU FIND THE NEXT UNIT 


yO gta RESTORE CURRENT DEVICE POINTER. 


SOBVRARWVISSRIKAR 


4) 
47 
41 
41 
a7 
41 
41 
41 
4] 
41 


2 


FENINZAUNIT 2D 12S3%APASS : ADSAS3ZARE CORD : ZD52N/ 
%D3%A,%23%A,223%A, 272 32N/ 
2A,%23%A,2232N/ 
D3%A, BESTA, 2 %13%A,%234N/ 


F 
ORS = 2D5%S2%D5%S22D52N/ 
E ricmet = XD5%S2XD5AS2XDSANAN/ 
"ZASPECIAL CONDITIONZS3%AHARD/FATALZSSZADATA COMPARE ZN’ * 
(2552054511 ED9AS9RDSENIN/ 


Rete 
PERSP 
S 


So 
Ww 


REE 
AAA AA AI 


S2 R822 

RELLSRGL 

2 
SUAWMNH Se 


— 
x 
~ 
oO 
GW 


L10011: 
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~-SBTTL INITIALIZE SECTION 


-++ 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 


BGNINIT 
LSINIT:: 


INIT10: IF #BITO!BITI Ah #CMDPKT THEN ;IF CMD PACKET IS NOT ON MODULO 4 BOUNDRY: 
ERRSF CMDPKM ;PRINT ERROR MSG, 
‘. TO SUPERVISOR, WAIT 10 SECONDS. 


: WAITMS 1 
000765 BR INIT10 
ENDIF 


IFB we 7 P THEN IF CLR COUNTERS FLAG SET: 
105037 002134 ese : INIT CLR FLAG. 


70 
WHILE R2 NE ACNTLEN DO 
LET WRBC ¢ R2) #0 CLR ALL STATISTICAL COUNTERS. 
LET R2 := R2 + #2 


ENDDO 
014224 ENDIF 


014224 IFB_RRANV NE = THEN iif RESET RANDOM VARIABLE FLAG IS SET THEN: 
LET RANB := #RANBC RESET RANDOM BASE #. 
mois RANS := #RANSC ;RESET RANDOM SAVE LOCATION. 


READEF #EF.START READ START COMMAND EVENT FLAG. 
BNCOMPLETE INIT15 BRANCH IF NOT STARTING. 
Let RS = - STAFLG + #1 SET START COMMAND FLAG. 


REPEAT : INITIATE UNIT NUMBER TABLE 
Let ee ied pa #NINUSE :BY STORING NOT IN USE IN EACH LOCATION. 


ooo OCOCOOCO OO 
RRR ~~ a 


ooo°o 


Fay #0 
= LSUNIT SHIFT 1 


STORE ALL UNIT 
LET RS := R5 - #2 [NUMBERS IN DEVTBL. 
LET DEVTBL(R5) := R5 SHIFT -1 + #1 
UNTIL R5 EQ 40 
: READEF MEF .PWR 7HAS es BE A POWER FAILURE? 
BNCOMPLETE INIT16 BRANCH !F NOT. 


LET STAFLG :B= STAFLG + #1 ;IF SU - SET THE START FLAG. 
LET PWRFLG :B= PWRFLG + #1 zIF SO - SET THE POWER FAIL FLAG. 


004737 012300 INIT16: JSR PC.FIRSTU INIT DEVICE POINTER. 
LET R2 := #0 : INIT DEVICE COUNTER. 
WHILE DEVTBL (RS) . #END DO 
LET R2 := R2 + 
LE = R5 SHIFT 1 


GPHARD —®0.RO ;GET HARDWARE P TABLE FROM SUPER, 
LET TSDB(RS) := (RO) :SAVE TSDB ADDRESS. 
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INITIALIZE SECTION 


012326 


INIT20: 


014732 
014736 


110012: 


SEQ 0097 
LET TSSR(RS) := _(RO)s + #2 =SAVE TSSR ADDRESS. 
LET TSVCT(RS) (RO) ‘SAVE INTERRUPT VECTOR ADDRESS. 
SETVEC TSVCT (RS) TSGINT(RS) ,MINTPRI  ;SET UP INTERUPT PROCESSING CONDITIONS. 
1FB PWRFLG EQ #0 THEN z1F POWER FAIL HAS NOT OCCURRED THEN 

Ler PASCNT (RS) := PASCNT(RS)'+ #1  ;UPDATE PASS COUNT. 


END 
JSR  PC,NEXTU :D0 IT FOR ALL DEVICES. 
ENDDO 
IF R2 EQ #0 THEN ;1F THERE ARE NO UNITS: 
[PRINT ALL UNITS DROPPED 
:60 TO SUPERVISOR, WAIT § SECONDS. 
GO TO SUPERVISOR. CHECK TTY 
“DO CLEAN CODE + ABORT PASS.” 


JSR PC,FIRSTU 

WHILE DEVTAL(RS) NE #END DO 
LET TIME? := #1 
REPEAT 


BREAK 
LET TIME? := TIME] = #1 
IF TIME1 EQ #0 THEN : THEN: 
JSR PC,.MOVMSG :MOVE ou PACKET TO COMMON eat 
JSR PC,TCC1 :PRINT UNIT * LINE + DROP UNIT 
s€LSE = IF NOT TIMED OUT: 


ELSE 
LET @71SDB(R5) := #GSCPK ; ISSUE GET STATUS COMMAND, 
WAITUS 100. sWAIT 10 MSEC, 


i SET rs one FIRST UNIT 
E ARE cont DEVICES: 


ENDIF 
UNTIL #TS.OFL NOTSETIN @TSSR(RS) OR TIME] EQ #0 
;REPEAT UNTIL ON rey | = TIMED OUT. 
we: PC ,NEXTU [SET UP FOR NEXT UNIT 


LET R2 := MDATCNT SHIFT -8. : GENERATE PAGE COUNT FROM MAX LENGTH 

BUF FER R2, R3 REQUEST MEMORY FROM SUPER FOR RD/WR BUFFERS. 

BCOMPLETE INIT20 “BRANCH IF ENOUGH MEMORY IS APA GLE. 
DOCLN D0 CLEAN CODE + TERMINATE PASS. 

LET DATAWT : 7SAVE WRITE BUFFER ADDRESS. 

LET DATARD : SAVE READ BUFFER ADDRESS. 

ter Slay : 


CLR CHANGE CMD SEQ TBL FLAG. 


CLEAR ALL FLAGS. 
LET PWRFLG :B= # :CLEAR THE POWER FAIL FLAG. 
EXIT INIT 
- EVEN 


ENDINIT 
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-SBTTL CLEANUP CODING SECTION 


sve 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE END OF EACH PASS. 


014744 BGNCLN 
014744 LSCLEAN:: 


014744 004737 012300 JSR PC,FIRS FIND FIRST UNIT. 
WHILE DEVIL (RS) ONE #END DO 
004737 007764 JSR PC,WSSR ;WAIT FOR UNIT READY OR TIMEOUT, 
LET aTSDB(R5) := #BRCPK ; ISSUE MSG BUFFER RELEASE CMD. 
RVEC TSVCT(RS) : RELEASE yy aly VECTORS FOR ALL DEV. 
004737 012326 PC,NEXTU FIND NEXT UNIT 


DDO 
UNBUFF DATAWT RELEASE THE READ/WRITE BUFFERS TO SUPER. 


015014 2. EXIT CL 
“EVEN 


015020 ENDCLN 
015020 110013: 
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015022 
015022 


015022 


015054 


015060 
015060 


004737 007764 
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UNIT SECTI 


-SBTTL DROP UNIT SECTION 


THe ay toneeh gg ts Avemeainateg THE CODING THAT CAUSES A DEVICE 


L190714: 


NO LONGER BE TEST 
BGNDU 


LET RS := RO SHIFT 1 

JSR PC,WSSR 

LET @TSDB(R5) := #BRCPK 
LET DEVTBL(RS) := #NINUSE 
CLRVEC TSVCT(RS) 


EXIT DU 
-EVEN 


ENDDU 


3R5 = LOGICAL DEVICE NUMBER X 2. 
cy FOR UNIT READY OR TIMEOUT. 

; ISSUE MSG BUFFER RELEASE CMD 

[SET NOT IN USE FLAG FOR THE DEVICE. 
SRELEASE THE INTERRUPT VECTOR. 
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-SBTTL ADD UNIT SECTION 


p++ 

; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

; JO BE (A) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TESTING. IF 
; “EF.AUNIT'' IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 


BGNAU 
LSAU:: 


LET RS := RO SHIFT zR5 = LOGICAL DEVICE NUMBER X 2. 

LET DEVTBL(RS) := RO + #1 ‘STORE UNIT # IN DEVICE TABLE. 

GPHARD RO,RO :GET HARDWARE P TABLE FROM SUPER. 

LET TSDB(R5) := (RO) :SAVE TSDB ADDRESS. 

LET TSSR(R5) := (RO)+ + #2 ; SAVE TSSR ADDRESS. 

LET TSVCT(RS) (RO) SAVE INTERRUPT VECTOR ADDRESS. 

SETVEC TSVCT(RS), TSGINT(RS) AINTPRI :SET UP INTERUPT PROCESSING CONDITIONS. 
LET INTFLG(RS) == #0 :CLEAR INTERRUPT FLAGS. 


EXIT AU 
-EVEN 
ENDAU 


015160 L10015: 
015162 ENDMOD 
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- TITLE HARDWARE TESTS 
-SBTTL TEST 1: BASIC FUNCTIONS. 


j++ 
; TEST TO EXECUTE ALL TSO4 FUNCTIONS. 


015162 BGNMOD 


015162 BGNTST 
015162 : 


015162 LET RANDOM :B= #0 :CLR THE RANDOM OPERATIONS FLAG. 


Blgier BGNSUB ; SUBTEST 1 = SET CHAR, DRIVE INIT, GET STATUS. 


015170 LET R2 := ABFSEQO z;ADR OF CMD SEQ. 
015754 JSR PC,BFSEQ 7SET UP CMD SEQ 
006020 JSR PC,EXALL S EXECUTE ay SEQ ON ALL DEVICES. 
012300 JSR PC,FIRSTU 7FIND THE FIRST UNIT 
WHILE DEVTBL(RS) NE #END DO ‘WHILE THERE ARE MORE DEVICES: 
LET R2 := MSGPKA(RS) 3GET A PACKET ADR, 
LET R2 := R2 + #12 ‘GET XSTAT2 ADR, 
LET TS4CL(R5) := (R2) CLR.BY #177400 ;STORE CODE wie FROM DTR BYTE, 


IF PASCNT(R5) EQ #1 THEN ;1F THIS IS PASS 1 
PRINTF #CODELM,DEVTA.(R5),TS4CL(R5S) ;PRINT THE TsO “MICROCODE LEVEL. 


* - 

be per pet ee po pr pr pn er pn 

ed cad aed oad en on en ch ae cd 
suubnnsaasses ¢ 


is 


ENDIF 
012326 - PC ,NEXTU FIND NEXT UNIT. 


L10017: 


; SUBTEST 2 = REWIND. 
Tl.2: 


:= ABFSEQ1 sADR OF CMD SEQ. 
015754 JSR PC ,BF SEQ :SET UP_CMD SEQ 
006020 2 PC,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
L10020: 


11.3 SUBTEST 3 - WRITE/VERIFY. 


:= ABFSEQ2 ADR OF CMD SEQ. 

015754 JS PC,BFSEQ 7SET UP CMD SEQ 

006020 JS PC, EXALL TEXECUTE CMD SEQ ON ALL DEVICES. 
L10021: 


“ ; SUBTEST 4 = WRITE TAPE MARK, ERASE. 
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0154 

015430 
015432 
015432 


015450 


015452 
015452 
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004737 
004737 


015754 
906020 


015754 
006020 


015754 
006020 


015754 
006020 


015754 
006020 


015754 
006020 


015754 
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L10022: 


T1.5% 


L10023: 


er 


L10024: 


Ti.72 


L10025: 


1.8: 


L10026: 


TID 


L10027: 


T1,.10: 


yt Re : 


:= WBFSEQ3 
PC ,BFSEQ 
PC,EXALL 


:= ABFSEQ4 


PC ,BFSEQ 
PC ,EXALL 


:= MBF SEQS 


PC ,BFSEQ 
PC,EXALL 


:= ABFSEQ6 


PC ,BF SEQ 
PC,EXALL 


:= MBF SEQ7 
PC ,BF SEQ 


PC,EXALL 


:= ABFSEQ8 


PC ,BF SEQ 
PC,EXALL 


= “BF SEQ9 


"PC ,BF SEO 


sADR OF CMD SEQ. 
;SET UP _CMD SEQ. 
EXECUTE CMD SEQ ON ALL DEVICES. 


;SUBTEST 5 = SPACE FILES. 


sADR OF CMD SEQ. 
SET UP CMD SEQ 
SEXECUTE CMD SEQ ON ALL DEVICES. 


; SUBTEST 6 = SPACE RECORDS. 


:ADR OF CMD SEQ. 
SET UP CMD SEQ 
SEXECUTE CMD SEQ ON ALL DEVICES. 


; SUBTEST 7 = WRITE RETRY. 


sADR OF CMD SEQ. 
SET UP_CMD SEQ 
SEXECUTE CMD SEQ ON ALL DEVICES. 


;SUBTEST 8 - READ REV RETRY. 


:ADR OF CMD SEQ. 
SET UP_CMD SEQ 
SEXECUTE CMD SEQ ON ALL DEVICES. 


; SUBTEST 9 - READ FWD RETRY. 


sADR OF CMD SEQ. 
;SET UP CMD SEQ 
SEXECUTE CMD SEQ ON ALL DEVICES. 


; SUBTEST 10= CLEAN, 


:ADR OF CMD SEQ. 
SET UP CMD SEQ. 


SEQ 0102 
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004737 006020 ae PC ,EXALL EXECUTE CMD SEQ ON ALL DEVICES. 


—244 
Nm 
a 


BGNSUB ; SUBTEST 11 = WIV SWAPPED DATA BYTES. 


oo oOo 


ae 
Vw WV 


PA PMMA oe I 


LET R2 := MBFSE10 :ADR OF CMD SEQ. 

004737 015754 JSR PC cA ty :SET_UP CMD SEQ. 

004737 906020 JSR PC,EXA sWRITE/VERIFY RECORDS 1 AND 2. 
le SWBF LG oe 1 ENABLE BYTE SWAPPING 

004737 006020 JSR PC,EXALL WRITE/VERIFY RECORDS | " AND 4. 
Ler a :B= #0 DISABLE BYTE SWAPPING 


REVFSRSE VON SS 


110031: 


~S 
oO 


LET R2 := DATAWT + #8. INIT WRITE BUFFER POINTER. 
WHILE R2 NE DATAWT ;UNTIL 8 BYTES HAVE BEEN SWAPPED. 
edeoe -(R2) ;SWAP DATA BYTES IN WRITE BUFFER. 


BGNSUB ; SUBTEST 12 = READ SWAPPED DATA BYTES. 


Ro 
~_~ — 
nun oO 


CMDWRD := #RDR :CMD IS READ REV. 
011624 PC, VFEXC : VERIFY ODD gt SWAP (RECORD 4). 
CMDPKT+C(P.CNT := ; CHANGE BYTE COUNT TO 
011624 PC, VFEXC ; VERIFY EVEN LENGTH SWAP (RECORD 3). 
SWBFLG :B= #1 ENABLE BYTE SWAPPING. 
SS ted : CHANGE BYTE COUNT TO 7. 
011624 PC, VFEXC : VERIFY ODD LENGTH SWAP (RECORD 2). 
CMDPKTSCP. CNT : ; CHANGE BYTE COUNT TO 
011624 PC.V VERIFY EVEN — SWAP (RECORD 1). 
C : :CMD IS READ FWD. 
011624 PC, ; VERIFY EVEN LENGTH SWAP (RECORD 1). 
: : CHANGE BYTE COUNT TO 7. 
011624 VERIFY ODD ‘go SWAP (RECORD 2). 
: ;DISABLE BYTES WAPP ING. 
: : CHANGE BYTE COUNT TO 8. 
011624 VERIFY EVEN LENGTH SWAP (RECORD 3). 
CMDPKT+CP.CNT := #1) “CHANGE BYTE COUNT TO 7. 
011624 J a PC, VFEXC :VERIFY ODD LENGTH SWAP (RECORD 4). 


110032: 
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4466 : SUBROUT INE TO MOVE A COMPIAND SEQUENCE TO THE SEQUENCE TABLE. 
4467 : INPU R2 = FWA OF COMMAND SEQUENCE. 
4468 ; OU RbUTs 
4469 : REGISTERS: 
an ‘ CALLS: 
4472 015754 BFSEQ: LET R1 := #CMDS sa ; INIT SEQ TABLE ADDRESS. 
4473 913760 WHILE (R2) NE WEND DO ‘WHILE THERE ARE MORE COMMANDS 
4474 015766 LET (Ride := (R2)¢ ‘MOVE COMMANDS TO SEQ TABLE. 
4475 015770 ENDDO 
4476 01577? LET (R1) := #END ;STORE END OF SEQUENCE CODE. 
4477 015776 000207 RTS PC s RETURN. 
4478 
79 
4480 
rrr il : BASIC FUNCTION COMMAND SEQUENCE 
4483 016000 140004 BFSEQO: .WwORD SCH 7SET CHAR. 200. (1) 
4484 016002 000200 200 
4485 016004 000001 1 
4486 016006 000000 0 
4487 016010 100013 DRI ;DRIVE INIT. (2) 
4488 016012 000001 1 
4489 016014 000001 1 
4490 016016 000000 
4491 016020 140004 SCH sSET CHAR. 20 (3) 
4492 016022 000020 2 
4493 016024 000001 1 
4494 016026 000000 0 
4495 016030 100017 GES :GET STATUS. (4) 
4496 016032 000001 Sy 1 
4497 016034 000001 1 
4498 016036 000000 0 
4499 016040 140004 SCH :SET CHAR. 40. (5) 
4500 016042 000040 40 
4501 016044 000001 1 
4502 016046 000000 0 
4305 016050 177777 .WORD END 
4505 016052 102010 BFSEQ1: RwD sREWIND TWICE. (6) 
4506 016054 000001 1 
4507 016056 000002 2 
4508 016060 000000 0 
4303 016062 177777 .WORD END 
4511 016064 104105 BFSEQ2: WIV :WRITE/VERIFY PAT 1. (7) 
4512 016066 .010000 DATCNT 
4513 016070 000001 ; 
4514 016072 000001 1 
4515 016074 104105 sWTV PAT 2, (8) 
4516 0160%6 010000 DATCNT 
4517 016100. 009001 
4518 016102 000002 2 
4519 016104 104105 WIV swly PAT 3, (9) 
4520 016106 010000 DATONT 
4521 016110 i 
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WTV zWTV PAT 4. 
oo 

WIV ;WTV PAT 5. 
pine 


WIV zWTV PAT 6. 
 aheies 


jelelelelelelelelelelelole) 


zWTV PAT 0. 


abut ababadabaabab dabababababab 
ADRAARAAARAAAARAAAAAOQ 


— 

SOC SS SS SS SS Ss Ss SS SS SS ss SS SS SS I SS 
_— 

SKERSK FYNSERASKENSRRVBSRS 


WTV 

eee 

0 
«WORD END 


BF SEQ3: : ;WRITE TAPE MARK. 


Cooo 
= 


oooo oO 
aad od 
On Oo 


;WRITE 10 RECORDS. 


= 


sERASE 19 TIMES. 


1 
1 
000001 
0 


2 


sWRITE TAPE MARK. 


7WT™M RETRY 


BF SEQ4: sSPACE 2 FILES REV. 


nm 


SPACE 2 FILES FWD. 


sSPACE 2 FILES REV. 


mn 
| 


SPACE 2 FILES FwD. 


eit antiiel ~ Yeiiiiates pitta 
Po) 
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000000 

177777 . WORD 
102010 BF SEQS: 
000001 


» 
S 


sREWIND. (23) 


:SPACE 7 RECORDS FWD. (24) 


NYoOo--— 
Pp») 
nn 


2 
a 


:SPACE 7 RECORDS REV. (25) 


P*] 


;SPACE 7 RECORDS FWD. (26) 


Pp] 
>) 


SPACE 7 RECORDS REV. (27) 


2 
i] 


BFSEQ6: 


S 


REWIND. 


1 
0 
s 
7 
1 
0 
S 
1 
7 
0 
Ss 
1 
7 
0 
E 
R 
1 
1 
0 
WRT 


:WRITE. 


WRITE RETRY. 


BF SEQ7: RDR READ REV. 


;READ NEXT REV. 


READ NEXT FWD. 


BF SEQ8: READ FWD. 


Soe Soesoooae 
RRF CRSSFRKKF 
ENS KRVSSRVSK 





— 


= S S « 


mMmmrmrmrmmm mmm Hem er eh en eh eh en er em em en om oh em om om en em en oh er er 9 er 9 er er eee FT ee ee 
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;READ PREVIOUS FWD. 


READ PREVIOUS REV. 


BFSEQ9: . ; ; CLEAN. 
;REWIND 


END OF SEQUENCE. 
BF SE10: sWRITE/VERIFY EVEN LENGTH. (39) 


;WRITE/VERIFY ODD LENGTH. (40) 


016524 - WORD 
-EVEN 


016526 ENDTST 
016526 L10016: 





—_ 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
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-SBTTL TEST 2: DATA RELIABILITY. 


p++ 
; TEST TO CHECK THE DATA RELIABILITY OF THE TS04. 


Téss 


:SET THE RANDOM OPERATIONS — 
SET UP THE RECORD LENGTH MASK 
ALLOW MAXIMUM 


LENMSK := COMP R BUFFER. 
005754 ETCH CMD 1 = in CHARACTERISTIC. 


006000 WIND 
edit STAFLG :B= #0 CLR START FLAG. 


IF 
LET (R1)+ 1. MTV :CMD3 = WRITE/ VERIFY. 
LET (R1)+ := #DATCNT SET BRF TO MAX FOR PATTERN GENERATION. 
LET R2 := COMP #RNOPSC 
LET (R1)+ := R2 363 OPERATIONS. 
LET (R1)+ := MRANP RANDOM fl a 
REPEAT i 4 TO EOT 
WHILE R17 LT _MSEQEND DO sFILL SEQ TBL WITH RANDOM CMDS. 
LET RANS : = RANS + RANB 
LET R2 := RANS CLR.BY 4177741 ;R2 = RANDOM # (0 - 36). 
016762 w PC, @RANCMD (R2) ;SET UP A RANDOM CMD + BRF. 


: STORE END OF SEQUENCE CODE IN TABLE. 
006020 PC ,EXALL 60 EXECUTE ALL CMDS IN SEQUENCE TABLE. 
=T : :1 Ss BL POINTER 


017022 PC ,RANRD 

CMDSEQ+4 := COMP A#RNOPSC 

CMDSEQ+14_ := CMDSEQ+4 AD FORWARD. 

(R1) := ae : STORE E SEQUENSE CODE IN SEQ TABLE. 

006020 PC,EXALL 260 EXECUTE rae REV/FWD OF LAST N RECORDS. 
A :B= #1 ;REQUEST PER ty tte DURING REWIND. 


006000 
; :ST N SEQ TBL, 
016752 006020 C,EXA SEXECUTE REWIND CMD ON ALL UNITS 
016756 








HARDWARE TESTS MACY1] SpA 195e) 29-DEC=78 15:33 PAGE 112 
CZTSHA.P11 28-DEC-78 14:34 TEST 2: DATA RELIABILITY. SEQ 0109 


ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
THE DATA RELIABILITY TEST. 


017110 : sWRITE/VERIFY. 
;WRITE. 


017020 017022 


TO SET UP READ COMMANDS IN SEQUENCE TABLE. 
R2 


017022 : := ARDR STORE READ REV CMD. 
a og SET BRF TO MAX FOR READ RANDOM LENGTHS. 
= RANB + 


RAND CLR. ay. PRNOPSC 
+ R2 SET RANDOM # OF OPERATIONS. 
#RANP . . ;RANDOM PATTERN. 
ARDF :STORE READ FWD CMD. 
ADATCNT 7SET BRF TO MAX TO READ RANDOM LENGTHS. 
[SET RANDOM # OF OPERATIONS. 
#RANP [RANDOM PATTERN. 
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oe lm TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE. 


OUTPUTS: 
REGISTERS: 
CALLS: 


: LET (R1)+ := #WRT STORE WRITE CMD 
006737 017122 JSR PC ,RANW STORE BRF, # OF OPERATIONS, PATTERN. 
000207 RTS PC , 


nat TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 


OUTPUTS: 
REGISTERS: 
CALLS: 


: LET (R1)+ := AWTV STORE WRITE/VERIFY CMD. 
017122 rt a Hee ~ as :STORE BRF, # OF OPERATIONS, PATTERN. 


SUBROUTINE TO STORE BRF, # OF OPERATIONS, PATTERN IN COMMAND 
oY pg TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 


OUTPUTS: 
REGISTERS: R2 
CALLS: 


017122 >: LET (R1)+ := #DATCNT ;SET BRF TO MAX FOR PATTERN GENERATION. 
[RANDOM BRF WILL BE GENERATED FOR EACH RECORD. 
oi eige = RANB + RANS 


=" RANB CLR.BY #RNOPSC 
LET (R1)+ := R2 i SET a hae a ? OPERATIONS. 
LET (R1)+ := #RANP : RANDOM PATTERN 
RTS PC TURN. 


~ EVEN 


ENDTST 
L10033: 





HARDWARE TESTS MACY11 ree sai 29-DEC=78 15:33 PAGE 114 
CZTSHA.P11 28-DEC=78 14:34 TEST 3: WRITE COMPATABILITY/WRITE UTILITY. SEQ 0111 


-SBTTL TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 


744 
; TEST TO WRITE RECORDS FROM BOT TO EOT. 


017156 
017156 TSss 


017156 LET ~ ey :B= #1 ;SET THE RANDOM OPERATIONS FLAG. 
0171 SET UP THE or LENGTH MASK. 
:= COM ALLOW MAXIMUM BUFFER 
004737 005754 cH :CMD_1 = SET CHARACTERISTIC. 
004737 006000 ; CMD2= =REWIND 
EPEAT ;REPEAT TO EOT. 
WHILE THERE IS MORE ROOM IN SEQ TABLE: 
004737 017076 eno PC ,RANWR STORE A WRITE CMD IN SEQUENCE TABLE. 


: :STORE END OF SEQUENCE CODE IN TABLE. 
004737 006020 tz PC,EXALL ; ¢ SEQ TBL ON UNITS. 


POINTER, 
REPEAT UNTIL EOT IS REACHED 
004737 006000 STORE REWIND IN SEQ 
: : STORE END IN SEQ TRL. 
017986 004737 006020 JSR PC,EXALL sEXECUTE REWIND CMD ON ALL UNITS 
017262 EXIT TST 


-EVEN 





017266 . ENDTST 
017266 L 10034: 
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-SBTTL TEST 4: READ COMPATABILITY/READ UTILITY. 


Ze 
; TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 


017270 
017270 T4:: 


017270 ' RANDOM :B SET THE RANDOM OPERATIONS FLAG. 
OR ee CMD 1 = SET CHARACTERISTIC. 


“vv 
an 
. 


P °] 
—e 
nw 
+mm 
ee 
ran) 
=x 


ORWARD. 
SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
SET RECORD COUNT TO MAX FOR WHOLE TAPE. 
[PATTERN = RAND 


T 
[STORE END OF SEQUENCE CODE IN TABLE. 
606020 PC ,EXAL ; EXECUTE ALL CMDS IN SEQ TBL ON ALL UNITS. 
3 NIT CMD SEQ TBL POINTER. 


UNKNOWN LENGTHS. 
PC,FIRSTU 3 
(R1)+ := RECCNT(RS) ;RECORD = # OF RECORDS ON TAPE. 
:= ARANP ode RANDOM. 
017366 : :STORE END OF SEQUENCE CODE IN TABLE. 
017372 006020 PC,EXALL ;GO EXECUTE READ REV. OF ENTIRE TAPE. 


017376 TST 


012300 


017402 _ ENDTST 
017402 L10035: 
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022711 
001024 


012137 
022137 
001003 
000756 
005337 
001751 


000772 
022711 
001015 


005754 


020014 


020014 


000040 


003006 
003004 


003006 


000020 


003002 


006450 


006360 
012300 
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TEST 5: 


EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


-SBTTL TEST 5: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


BGNTST 

TS:: 
LET RANDOM := #0 
LET IRE ar — 


JSR PC,SETC 
LET CMBSEQs? 
: CMDD 


(R1)+, JLOC 
JLOOP := JLOOP + #1 
(R1) + JLOOP 
R1_:= R1 + #2 

3$ 


= ACMDSEQ 
oc 


= R1 + #10 
2s 
ADLY.C,(R1) 
4$ 


C.SETUP 
WHILE NCNT “3 = DO 
JSR PC, 
IRR PC. FIRS 
Pia EQ #END THEN 


ENDIF 
WHILE DEVTBL(R5) NE #END DO 
JSR PC ,EXCUTE 
PC ,NEXTU 


p++ 
; TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


CLEAR RAMDOM MODE FLAG. 

;MOVE INHIBIT RFC ERROR REPORT FLAG. 
SET CHARACTERISTIC. 

; CODE FROM P TBL TO SEQ TBL. 

Re POINTS " CMD2 IN SOFT P TABLE. 

MOVE CMD P 


BL. 
MOVE ao @ CMD FROM P TBL TO SEQ TBL. 
‘cL EAR JMP CMD LOOP COUNT. 
INIT SEQUENCE TABLE PO 


Z1S 
:BR 
[POINT TO BRF. 
SAVE BRF (LOCATION). 
:UPDA TE THE LOOP COUNT. 

HAS LOOP See 7 SATISFIED? 


SIF NOT, JMP A 
SIF SO, ADJUST *5e0. POUNTER 
SAND GO TO NEXT 


TINIT CMD SEQ TABLE POINTER. 
:DECR LOCATION COUNTER. 

“IF NOT, UPDATE SEQ POINTER TO NEXT C 
:D0 1 AGAIN. 


THIS A 
44 NOT 


:BR IF NOT. 
iR1 = er OF N COUNT. 
SAVE _N COUNT. 
[GO TO SUPER-WAIT 1 MSEC. 


sPOINT TO NEXT CMD. 

>GO CHECK i CMD . 

:GO SETUP THE COMMAND BLO 

[WHILE THERE ARE RECORDS REMAINING: 
7ST ORE wy: ASCII IN ERROR MSG. 

;SET UP FOR 1ST UNIT 

il ALL DEVICES HAVE BEEN. DROPPED : 
;DO CLEAN CODE AND ABORT PASS. 


WHILE THERE va UNITS REMAINING: 
:GO EXECUTE THE COMMAND. 
FIND NEXT UNIT. 


SEQ 0113 


INTER 
WHILE a ge er LEFT IN SEQUENCE TBLE: 


HIS IS THE RIGHT LOCATION TO JMP A... GO SET 
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017672 004737 012300 JSR PC,FIRSTU ;SET UP_FOR 1ST UNIT. 
WHILE DEVTBL(RS) NE END DO :WHILE THERE ARE MORE UN 

004737 907600 JSR PC ,GOWAIT :GO WAIT FOR INT ERRUPT + + THE CK FOR ERRORS. 

OS 7055 002762 100017 gE Aer” oAGES iIS IF Not A GET STATUS CMD? 


:BR I 
012610 RXST PRINT EXTENDED STATUS REGISTERS. 
IF “PO. ET pet = MSGPKT+MS. x80 OR _#X0.BOT SETIN MSGPKT+MS.XSO THEN 
LET FORCE TERMINATION OF COMMAND. 


PC, CKHAE CHECK HALT AFTER EACH CMD FLAG. 
PC ,NEXTU :FIND NEXT UNIT IN TEST SEQUENCE. 


= NCNT = 41 UPDATE RECORD COUNT. 
= CMDWRD :SAVE PREVIOUS COMMAND WORD. 


ENDDO 
JSR PC, VFYDAT :1F LAST CMD WAS A WRITE VERIFY, THEN GO 
VERIFY THE LAST N RECORDS OF DATA. 


TST 


SUBROUTINE TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 
THE COMMAND SEQUENCE TABLE. 
a4 S$: R2 = POINTER TO SOFT *P** TABLE 


IUTPUTS: 
REGISTERS: R3. 
CALLS: 


: LET R3 := (R ap ~ #1 SHIFT +1 ;R3 = COMMAND TABLE INDEX. 
LET (R1)+ CMD TBL (R3) ;MOVE COMMAND WORD. 
LET (R1)+ (R2)+ sMOVE # OF BYTES. 
LET (R1)+ z= (R2)+ :MOVE # OF OPERATIONS. 
LET (R1)+ := (R2)+ ;MOVE PATTERN CODE. 
RTS PC 
-EVEN 


ENDTST 
L 10036: 


ENDMOD 


oe 
“ou 
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-TITLE PARAMETER CODING 
-SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


-++ 

; THE HARDWARE PARAMETER CODING SECTION yer MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

> WITH THE OPERATOR. 


_—<— 
’ 


020040 BGNHR 
020042 L SHARD: : 


020042 GPRMA = TS4ADR,0,0, 160000, 177564, YES 
020052 GPRMD = TS4VCT,2,0,777,60,776, YES 


020064 EXIT HRD 


-N BEX 
020066 051 ae 041104 0404640 ITSGADR: .AS /TSDB —" SS/ 
020103 126 041505 047524 ITS4VCT: . /VECTOR/ 


BE X 


020112 ENDHRD 
020112 110037: 


SEQ 0115 
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-SBTTL SOFTWARE PARAMETER CODING SECTION 


p++ 
; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


BGNSF T 
LSSOFT:: 


CLRM,O,1,YES 
RRVM.0.400, YES 
HAEM, 2, 1 


200, YES 
-YES 
gs ate 


& 
=<~< 
mmm 
nun 


$3 
D 
-1 
10 
33. 
DA 
-1,Y 
10 
33-y 
DA 
-1 
10<¥ 
33 
DA 
-1 
10 


EXIT SFT 
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5039 
5049 


020776 
020776 


020776 
020776 
020776 


28-DE(-78 


re y11 eaten 


052 


of fan '¥ -78 


L 10040: 


LSLAST:: 


. 7 

> > 

“ 7) “ 
AADAANIAAAAANANAONO! 


. oe . . 

>>r>ryp 

nnnn 
ee a te tee at tt at at te tt gs wf} 
NII I I I I 


> 
wn 
oO 


“LIST 


LASTAD 
ENDMOD 


15:33 PAGE 20 
E PARAMETER CODING SECTION 


BEX 
Ay COUNTERS/ 


HINAIBIT RECOVERY/ 
/CHANGE CMD SEQUENCE / 

/ INHIBIT RFC_ERROR REPORT/ 
fe Natali CODE / 


/BRF COUNT/ 

/# OF OPERATIONS/ 
/PATTERN/ 

a | oak 

""CMD/4"" 


"““CMD/5°* 
BEX 


SEQ 0117 


PARAMETER CODING MACY11 30A(1052) 


DOCTOR .P11 


5049 

5050 051572 
051574 
051576 
051600 


17-FEB-78 09:08 


8 10 
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DIAGNOSTIC SUPERVISOR -- LOW CORE SET UP 


-SBTTL DIAGNOSTIC SUPERVISOR =-- LOW CORE SET UP 
WORD 0 seroee FOR USER POOL POINTER 


[CHECKSUM (NOT CURRENTLY USED) 
:SIZE OF H.W. PTAB. ALLOCATION 


SEQ 0118 
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021322 G 

021240 G 

023602 

00000 G 2595 2600 2603 2606 2609 2612 2615 2618 2621 2627 2630 
2 2636 ©=— 2639. 2642 2645 2648 = 2651 2654 = 2657 = 2660 3 2666 «= 2668 

021039 G 


6G 3626 
G 3007; 4192 


4347 4356 4365 4374 4383 4401 4410 
44834 


1T00 
01 
02 
03 
O4 
05 
06 
07 
08 
09 


8 
8 


NGRaR=S 
Sag setestee 
go rissenes 
DADADAQAQADADAIDAAAAAIAAAIAAIAAAAIAA 





ASSEMBLY ROUTINES 
DOCTOR .P11 


™ ™ at} 
DAD AQAQQ o 


00 
002152 G 


MACY11 30A(1052) 


17-FEB-78 09:08 


29-DEC-78 


D_10 
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CROSS REFERENCE TABLE == USER SYMBOLS 


2740 


3973 
39774 
4933 


3230* 3296 
2618 2621 


3827 
2624 


3828 
2627 


2857 


39764 


3934 
2630 


3935 
2633 


SEQ 0120 


3937 
2648 





ASSEMBLY 
DOCTOR .P11 


002770 G 
003742 G 
002224 G 


ROUTINES 
17-FEB-78 09:08 


CMD.C2= 000004 G 
CMD.C3= 000010 G 


CMD.C4= 000020 G 
2M 


3255* 
3229s 
3526* 


2666 


3247* 
3148* 


3262* 
3255* 
3535 


3270* 
3261* 
3568 


10 
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3273* 
3229* 
3283* 
4447* 


4701* 


3899* 
4447* 
3573 


4450* 


3749 


4381 


3739 
3236* 
286 
4452* 


4452s 


3808 


4390 


3788 

3239 
34« 

4456* 


4456* 4459s 


3969 4024 


4399 4408 


3880* 
3255* 
3685* 


4889 


3576 
2642 


2657 


4461* 


4030 4137 


4417 4426 


SEQ 0121 
3884* 


3261* 
3692* 








ASSEMBLY ROUTINES MACY11 30A(1052) 


DOCTOR .P11 17-FEB-78 09:08 
CSDRPT= 000024 
C$OU_ = 000055 


DIA = 100006 G 
DIABLK= 002750 G 


29-DEC-78 


1§:33 


F 
PAGE 1 


10 
27 


CROSS REFERENCE TABLE <= USER SYMBOLS 


4167* 


4396 4405 


4113 
4 
3969 


4221* 


4414 


4114 
4024 


4423 


4030 


4435 


SEQ 0122 


4464 
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DOCTOR .P11 17-FEB-78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0123 


DIACNT= 000020 G 
DIAG.T 021350 G 
DINT 002142 G 
DINTM 
DLY 20 G 
DLY.C = 000020 G 
DPDVD 050740 G 
DPMUL 50626 G 
DRI 
DROPDM 5 
DROPED ¢. 3986* 4003*  4051* 

3470 3626 3669 3744 3775 3790 3800 40194 








ee ed ee el eel ee ee 





38 


Pe 
AAMNSWN-O 


SAAT 


G 
G 
G 
G 
0G 
G 
2G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 


Tom mMmMmMmMmemmmm en 


2881 2912 3132 3152 
4332 4474 4477 4503 
4663 4696 4703 4708 


ee a 
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020442 5019 50374 
1 49434 


3172 3173* 
3822* 


3646 3694* 3716*  3753* 


G 
2G 
G 
G 
G 
G 


FSCLEA 
F $DU 
F SEND 


SEQ 0124 
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DOCTOR.P11 17-FEB-78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0125 


F SHARD 5019 5039 


o 
_— 
2 
oo 
4 


SJMP 


4 & 
000050 22 i957 04 4118 4228 4828 4863 


002136 G 
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DOCTOR.P11 17-FEB-78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0126 


5015 50404 
4080* 4081 


2367 2483 2688 3002 3003 3020 3026 
4253 4267 4274 4289 4300 4987 4992 


4114 


3434% 3461 
4297 


50494 


4407 


43604 
43984 
44634 


4 4407 
46674 47994 48324 


_— 
wr 
— 
~~ 
— 





TINES MACY11 30A(1052) 29=DEC-78 15:33 PAGE 132 
17-FEB-78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0127 


48684 48754 4944 49664 4967" 
4900* 
4895* 


4890 
3044 3053 4118 4274 4300 


4679* 4813» 


4033 


40994 





ASSEMBLY ROUTINES 


DOCTOR .P11 
020114 
002062 


SSSc85 


35 


S8SS8SE8 
NOUSWN ON 


SSS 


Oo 


PP att ee ey 
So 


ow 
oO 


ee ced ed ce eed ceed ce ced ced ced ed ced ed ed eed 
N NOSIS AI AAA ITT 
weeny! 
RSSS 


No— 
RF 


x 
Oo 
% 


KARUN SSNRARAS 


L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 


es es = hs SS Ss ss ss Ss Ss Ss Ss SS Ss Ss SS SS YS Ss 


SecSeseecseceeds 


17-FEB-78 09:08 


G 
G 


10 
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CROSS REFERENCE TABLE -- USER SYMBOLS 
50094 


47994 
48324 
48674 
49664 
4991 49964 
5039 50444 


2708 2899 


SEQ 0128 





santeines 


g ae: 
ieee S 


Recs 
REE 


oO 

Nm 

Re 
PLA 
ANIO 


RRORENS 


29-DEC-78 15:33 PAGE 134 
CROSS REFERENCE TABLE == USER SYMBOLS 


3829 
3640 


4062 


3266 


40024 
2777 


2405 
5685 


2624 2651 
2630 8=— 2633 


4027 4204 


3577 3637 


4932s 


4338 


40874 4090 





3829 3934 3935 


4937* 


4922 4934 


4970@ 4972 


n_10 
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DOCTOR .P11 17-FEB-78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS 


eeerer | 


043770 
4037 4038* 4106 4186* 4336 
3294 


DAQDAQDGAAGAQAAAG 
SaSSSSSss 
RAanw=os ~N 


S 


5037 50404 
3280* 3542 3546 3878* 3882+  3923*  4938« 


RO MWWINWIN NI 


ao 


NM 
Ow 
aR 
3 


G 
0G 
G 
G 
G 
G 
G 
G 


4957# 


™~ 
———s 
= 


4152* 4745* 4791* 4792 


—w 
Win 
R 


4677* 4845* 
2863 286 2871 4689 4748 4752 


4727 4729 47420 
33R2 3384 4692" 4693 4745 
4721 4759" 


4749 
4768 


alae r ar er ae ae Te NAS ES 
at Philianteataailing 


OO NNN NO.’ 
gv Pete tet 
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DOCTOR .P11 17-FEB-78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0131 


3062 3543* 3547 3548* 4106 4858 
35334 


3691* 3711 3714* 3748 3751* 3797 3806 


4746 4792 


_ WwW N OW 
ADADAAAIAAAAG Qa 


4639 
3160*  4705* 


3537 4505 4581 4603 4649 


4483 4491 4499 


5G 
G 
G 
0G 
G 
2G 
G 
4G 
G 
2G 
4G 
0G 
G 
G 
G 
0G 
G 
6G 
G 
G 
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ASSEMBLY ROUTINES MACY11 30A(1052) 29=DEC-78 15:33 PAGE 137 
DOCTOR .P11 17-FEB-78 09:08 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0132 


32274 84913 


3712 3749 3808 4024 4030 
3198* 


4681 


SUP.PR 0 
SVCCNT= 


SVCHAN 030270 
SVCINS= 177777 





0.11 
ASSEMBLY ROUTINES MACY11 30A(1052) 29=DEC-78 15:33 PAGE 138 
DOCTOR .P11 17-FEB-78 09:08 CROSS REFERENCE TABLE == USEF SYMBOLS SEQ 0133 


4967 4985 4988 4929 4991 4°96 5009 5013 5014 5015 5016 5017 5018 
5019 5020 5021 502 5023 5024 5025 5026 5027 5028 5029 50 5031 
5032 5033 5034 503 5036 5037 5039 5044 5047 

SVCSTK= 177777 22804 2284 347 355 2364 399 402 407 3019 3031 3034 3049 51 
3058 9 073 076 3080 083 087 0 4087 4092 4124 
4133 4231 4240 4256 4265 77 4287 4304 4307 4318 4321 4326 4341 
4345 4350 4354 4359 4372 4377 4381 43 43 4399 
4404 4408 4413 4417 4422 4426 4 4443 4463 4667 4675 
rst $e3 4867 4876 4969 4974 4985 5 5019 5039 

SVCSUB= 000000 22804 4325 4326 4344 4345 4353 4354 4362 4363 4371 4372 4380 4381 
4389 4390 4398 4399 4407 4408 4416 4417 4425 4426 4442 4443 

SVCTAG= 000000 22804 2355 2356 2399 2400 3031 3032 3049 3050 3058 3059 3073 3074 
3080 3081 3087 3088 3094 3095 4081 4082 4124 4125 4231 4232 4256 
4257 4277 4278 3 4305 4341 4342 4350 4351 4359 4 4369 

4378 4386 4387 4395 4396 4404 4405 4413 4414 4422 4423 4434 

4435 4463 464 4667 4 4799 4800 4832 4833 yu. & 4967 
4996 4997 5044 5045 

SVCTST= 000000 22804 4320 4321 4674 4675 4808 4809 4842 4843 4875 4876 

SWBFLG 003042 G 28424 3282 3895 3951 4431* 4433% 4449% 4458« 

SWB.C = 01 G 25144 2595 3283 3896 

SWCHAN 025562 505 

SWITCH 044434 50504 

SW.ADR 021036 G 50504 

SW.PTA 025546 50504 

SYS.FT 034314 50504 

$SLSYM= 010000 22804 23564 24004 30324 3050 3059% 30744 30814 30884 30954 4081 40824 41254 


42324 42574 42784 43054 43424 43514 43604 4369% 43784 43874 43964 44054 44144 
44234 Saas 44644 46684 48004 48334 48684 4967# 4997H 50454 


TCCRA 010344 3573 359 
TCCO 010364 G 3593 36084 
TCC1 010402 G 3594 36244 4205 
TCC2 010420 G 3595 36364 
TCC3 010514 G 36674 
TCC4 010532 G 3597 36804 
TCCS 010656 G 3598 37094 
TCC6 010742 G 35 373 
TCC7 011104 G 3600 37734 
TC2RTN 010512 3642 36534 
TERMI 046460 50504 
RMLI 044262 50504 
TERMTA 040244 50504 
TEST.M 025702 50504* 
TIME1 003000 G 28144 3022 3399* 3401* 3402 3454* 3466* 3467 3502* 3505* 3506 3964*  3965* 
4081 4200* 4203* 4204 4211 
TIME2 003002 G 28154 3022 3966* 3967* 4908*  4909* 
TIMFLG 021232 G 50504* 
TIM.CO 021064 G 50504* 
TIM.OP 034670 50504* 
TOERM 004041 G OO7# 3441 
T 004367 G 30074 3430 
TOO.MA 040224 0504 
TSAM 004345 G 30074 3652 
T = 002366 G 25784 
TSC.FC= 177717 G 25074 
TSC.TC= 177761 G 25084 3525 





ASSEMBLY 
DOCTOR .P 


TSF _LAG= 
TSHILI= 
T$LOL I= 
TSLSYM= 


TSMCAL = 
TSNEST= 


1 


177777 
177777 


mate © 


MACY11 30A(1052) 
17-FEB=78 09:08 


29-DEC-78 15:33 


PAGE 139 
CROSS REFERENCE TABLE -- USER SYMBOLS 
ot 3040 
040 3409 


3435* 


3754* 
3438 3464 


4026* 4181* 
3506 3525 


4208* 
3567 


4247 
4044* 


4183* 4184 4248 4272 4296* 4297 


3463 3506 


4270* 
4182* 


4294s 
4211 4295* 


SEQ 0134 
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DOCTOR.P11 17-FEB-78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0135 


5 
TSNSKI= 000000 2402 
TSNSK1= 000005 $323 30764 
3080 834 87 0904 4 & 4 4277 
4304 43214 799 48094 48434 486 49854 
991 4996 50094 5039 4 
TSNSK2= 000002 43454 
4404 
TSSAVL= 177777 
TSSEGL= 177777 
TSSUBN= 000000 


TSTAGL= 177777 
TSTAGN= 010041 


24074 40924 49744 
3644 194 30344 


TSTEMP= 


TSTEST= 
TSTSTM= 


: 


TSTSTS= 
TSS$AU = 


S geeseesaees 


4359 4377 43814 
44174 3 44434 4463 


4799 48434 4863 


8 


— ot od od =_— mw So Ss SS SS = 


MAMA 





ASSEMBLY ROUTINES 


DOCTOR.P11 


VIWN ™m 
DAQAAGA AAAAG 


G 
G 
G 
G 
5G 
G 
G 
G 
G 
5G 
G 
G 
G 
6 


NOOsNM 
AAADAG 
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17-FEB-78 09:08 


CROSS REFERENCE TABLE == USER SYMBOLS 


46744 
48084 
48424 
48754 


2906 
3647* 3741* 3760*  3798* 


4450 4452 


2888 4511 


5039 
5019 5039 


3807* 


4454 


4515 


3848 


4456 


4519 


4459 


4523 


4461 


4527 


4531 


SEQ 0136 


4535 





on 


PRO CSO PPO CPIM PSs CR OA OOO HMMM mM mM NN MM nM MM Nn Mn wMn MM ~My » 


men 
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DOCTOR.P11 17-FEB-78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0137 


4931 
3640 


SBREG 026042 
a 050260 G 
SERFLG= 000400 


$FSAND- 000310 


Fe we INR, 
0 - ODO RWWO WN? WON WWU100 
ES. AINANII SS BAW 
WIM - 0 — OD NO 

NOS NS MP OUMIVIN 

WROD NUVDOMVIPIWIN SY 
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AAAI 
co N 


3 
3 
3 
3 
3 
3 
3 
3 


+ ~4 YNNO Wat ey SPS 


$F $BLA= 
$F SCAS= 
$F SDEC= 
$F$DO = 000340 


$F SF AL= 
$F$GOO= 000400 





J11 
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-FEB-78 09:08 CROSS REFERENCE TABLE <= USER SEQ 0139 


ASSEMBLY 
DOCTOR .P1 


SFSIF = 000110 


SFSINC= 000210 
$F$LOO= 000200 


oun 

Wu 

het pe oe ce enapios 

Wn 
fof—-wwn 


WANING 


WANA 
SInnwn-— 
Sess. 
BOW 
WRN 


* 


WINN 
Vins 
NW 
yonw 
AAG 
Mw 
WW 
fovienwv— 





ASSEMBLY ROUTINES 
DOC TOR 


-P11 


SF SYES= 


MACY11 30A(1052) 
17-FEB=78 09:08 


29-DEC-78 15:33 PAGE 
CROSS REFERENCE TABLE -- 


K 11 
145 
USER 


BROS 


* 
N 


31 
3 
44 
49 
31 
31 
31 
3196 
32 
32 
33 


WWW 
rise FAR 
RUBRS 


IN 
— 


a 
Pas 
O39 sw 
MO—PwuM 


5 ee ee ks he | 
S33 
SSS 


elite 
RIS SIAS 


IIS 
oxyww 
—O0 —0o 
—DOININ 


Uliana 
SSE eT 


WNW 
~™w 
wi 


SEQ 0140 
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SIFLEV= 177777 


000001 
177777 





M11 
thee ROUT INES MACY11 30A(1052) 29-DEC-78 15:33 PAGE 147 


OR.P11 17-FEB-78 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0142 
16 3218 239 3241 246 248 325 274 3277 3279 32 284 3325 
7 ac08 i 08 09 10 73 16 3213 3094 3295 3258 3433 
344 5 57 3459 60 $6 $3 67 fa 3474 3489 3491 
3503 3506 521 524 534 $223 5 539 354 3541 3542 3544 545 
3546 3547 3549 3550 551 552 553 $254 35 3567 3568 3569 571 
3572 3575 3576 3577 578 3579 58 583 3584 3585 3586 3587 3589 
3637 3640 3641 3644 5 3646 50 3653 3682 3684 3686 3687 
3688 3690 3693 3698 700 3711 713 ; 15 720 3722 737 3739 3742 
3746 3748 3750 3752 759 3761 3762 788 794 3796 797 3804 3805 
3806 3811 3812 3821 3824 3828 3830 3832 3835 3837 3840 3842 3845 
3846 3848 3851 3853 3855 3856 3857 3858 3859 3877 3886 3895 3897 
3901 3 3906 3907 3 3911 3913 3915 3916 3918 3921 3924 3934 
3936 3938 3939 3949 3950 3951 3952 3955 3956 3957 3973 3974 3988 
3990 4006 40 4031 4033 35 4037 4039 4043 4047 4049 4074 
4083 4105 4116 4140 4142 145 4148 4149 4151 4154 4160 4163 
4165 4168 4177 4185 4187 4189 4191 4199 201 42 4207 4210 
4211 4214 4245 250 4332 336 338 0 4438 4440 4474 4476 4 
4 46 91 695 699 4816 481 819 4823 4890 4915 4918 4920 
4921 492 4926 4931 4933 4936 39 + 4942 
SLSTCN= 177777 22808 3152 3136 3137 3138 3140 3144 3145 3147 3149 3150 3152 
3154 3155 3158 3159 3162 3164 3166 3168 3170 3172 3176 3179 3182 
3216 3218 3239 3241 3246 3248 3250 3274 3277 3279 3282 3284 3325 
3327 3400 3402 3408 3409 3410 3413 16 3419 3422 3425 3428 3433 
38 3443 3455 57 3459 3460 3462 3465 3467 3473 347 3489 3491 
3503 3506 3521 3524 3534 3535 3537 3539 3540 3541 3542 3544 354 
3546 3547 3549 3550 3551 3552 3553 3554 3555 3567 3568 3569 3571 
3572 3575 3576 3577 3578 3579 3582 3583 3584 3585 3586 3587 35 
3637 3640 3641 44 3645 3646 3648 3650 3653 3682 3684 3686 
3688 3690 3693 3698 3700 3711 3713 3715 3720 3722 3737 3739 3742 
3746 3748 3750 3752 3759 3761 3762 3788 3794 796 3797 5 
3806 3811 3812 3821 3824 3828 3830 3832 3835 3837 3840 3842 3845 
3848 3851 3853 3855 3856 3857 3858 3859 3877 7 
3901 3904 3 909 3911 3913 3915 3916 3918 3921 3924 3934 
3936 3938 3939 3949 3950 3951 3952 3955 3956 3957 3973 3974 3 
3 4029 4031 4033 4035 4037 4039 4 04 4049 4074 
4083 4105 4116 4136 4140 al 414° 4148 4149 4151 4154 4160 4163 
4165 4177 4185 4187 4189 4191 41 199 4201 4207 4210 
4211 4214 4245 4250 4332 4336 4338 43 4438 4440 4474 4476 468 
4 4690 4691 4695 4699 4816 4817 481 4823 4890 4915 4918 4920 
4921 4924 4926 4931 4933 4936 4939 4942 
SLSTIN= 177777 22804 3072 3079 3093 3103 3119 3120 3121 3131 3132 3134 3136 
3137 3138 3139 3140 3141 3142 3143 3145 3146 3148 3152 3155 3158 
3159 3 3164 3167 3170 3172 3173 3174 3177 3178 3179 3182 
3183 3200 3202 3203 3215 3216 $535 3218 3219 3228 3239 3240 
3246 3247 3248 3249 3255 3257 3558 273 3274 3275 3277 3278 3280 
3281 28 3283 3286 3296 3299 3320 3321 3323 3524 3325 3326 3334 
9 337 3381 3 3401 3402 3404 3405 3409 3410 3411 3413 3416 
3417 3418 3420 3421 3422 3423 3424 3425 3428 3429 3430 3434 3438 
3440 3441 3454 3457 3460 3461 3462 3463 3464 3466 3467 3469 3470 
4 3479 3488 3491 3502 3505 3506 3519 3520 3521 352 3523 
3524 3525 3526 3534 3535 3536 3537 3538 3539 3540 3541 354 3543 
3545 3546 3547 3548 3567 3568 3569 3573 3575 3576 3577 3578 3579 
3580 3587 3588 3609 3625 3626 3637 3640 3641 3646 3647 3648 3649 
8 3669 3682 3683 3684 3685 3688 3691 3692 3693 3694 3695 
3698 3699 3711 3714 ai 3716 3717 3720 3721 3737 3739 3740 3741 
3743 3744 3746 3748 3751 3752 3753 3754 3756 3759 3760 3774 3775 





ASSEMBL 


N11 
Y ROUTINES MACY11 30A(1052) 29-DEC-78 15:33 PAGE 148 
DOCTOR .P11 :08 


17-FEB-78 09 CROSS REFERENCE TABLE <- USER SEQ 0143 


geese 
Bea ceeeS 
AR FENNOWYINS 


SLSTST= 177777 


Ww 
Nm 


OAS 
Rane & 
COMO WN 


5 
5 
5 


gy 
3 


SSN 


oO 
OWI NNO 
SRSA AH FOIIS 
0 OG000 SIN 


Sse 
OLWN WO 
RUIN NONMWONIWNNIWWO 


z 


Re 


& 
NN OM ON OO 


SIASAKSS 


SLSTTA= 177777 


A aR 
Po 
or 
SoSEU3 
Qrofw 
eee nw 
WWAWAAIN ES ED 
Ma EN 


~N 
~ 
COCOWINI WN 


m3 

w 

NE NOODVWW 
VINnN——S 


Sooo 
NWN OO~n 
4 


WAAWA 


rw 
=3< 

oO 

& PWww 
—-O oon 
Own! 
o-auw 
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Sate 


SMCALL= 000000 
SNESTL= 177777 


31 
31 
32 
34 
34 
35 
35 
36 


35834 
S04 
37154 
7884 
38324 
584 


000120 


= 000110 
000110 
000110 
000110 
177777 
$SAV2 051324 G 


$SAV3 051340 G 
$SAV4 051356 G 





— 


44 4144.4 


ov. ve 


4444 


C12 
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$SAVS 051376 G 
$SSKO = 050245 


31824 
41484 


e53 
Vee 


STAGLE= 177777 


NINN Sw 
uo 
UI 
WANWAIAL ES ESA 
Q—— 

= 
ANG 


SELLE 
Seeks oC 


syd 
WW 
et 


Ci ga 
¥ 


3 
z 
g 


NENUMUOWUW 


pitty 
ry 


Ww 
Bess 

= 
gn 
eee 
zz 


STAGNU= 050257 


STEMP = 000402 
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DOCTOR .P11 17-FEB-78 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0146 


$TSKO = 050244 


$TSK1 = 050245 


$TSK2 = 050246 


$TSK3 = 050247 
$TSK4 = 050253 


$TSKS = 050254 


$TSK6 = 050256 
$$ARGC= 000000 . 
$$BYTE= 000403 





E 
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1 17-FEB=78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0147 


DOCTOR .P1 


$$C 
$SOST = 000000 
SSELOC= 000402 


mt dare Se 
prranengetu 


SSAA 

—Ooonwn & 

FSO eSSa 

Seeley 
~ 


SSERFL= 000000 
$$FLAG= 000001 


000000 
017744 


$$TO = 000000 
$$$TAG= 050000 
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DOCTOR .P11 17-FEB-78 09:08 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0148 


= 051602 26884 27218 
2 27834 7864 
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DOCTOR .P11 17-FEB=78 09:08 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0149 


4217 


4370 4379 
4874 


3758 3804 


3910 3920 
4935 4938 
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SSSETT 
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ERRORS DETECTED: 0 


CZTSHA, Cee = SVC.SML ,SPMAC.SML,CZTSHA.DOC ,CZTSHA.P11,DOCTOR.P1" 
RUN-TIME: 114 118 8 yore 

RUN-TIME RATIO: 351/241=1 

CORE USED: 27k (53 PAGES) 





